home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri Kaikille K-CD 2002 #1 / K-CD_2002-01.iso / Delphi / INSTALL / program files / Borland / Delphi6 / Ocx / Vci / Impress / VCFI.pas < prev    next >
Pascal/Delphi Source File  |  2001-05-22  |  169KB  |  3,847 lines
  1. unit VCFI;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                    
  5. // -------                                                                    
  6. // The types declared in this file were generated from data read from a       
  7. // Type Library. If this type library is explicitly or indirectly (via        
  8. // another type library referring to this type library) re-imported, or the   
  9. // 'Refresh' command of the Type Library Editor activated while editing the   
  10. // Type Library, the contents of this file will be regenerated and all        
  11. // manual modifications will be lost.                                         
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.5  $
  15. // File generated on 1/10/00 8:06:28 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: c:\winnt\system32\vcfi32.ocx (1)
  19. // IID\LCID: {5A721583-5AF0-11CE-8384-0020AF2337F2}\0
  20. // Helpfile: C:\WINNT\System32\VCFI.HLP
  21. // DepndLst: 
  22. //   (1) v1.0 stdole, (C:\WINNT\System32\stdole32.tlb)
  23. //   (2) v1.0 StdVCL, (C:\WINNT\System32\STDVCL32.DLL)
  24. //   (3) v1.0 StdType, (C:\WINNT\System32\oc30.dll)
  25. // Errors:
  26. //   Hint: TypeInfo 'Label' changed to 'Label_'
  27. //   Hint: Parameter 'Array' of _DVtChart.CopyDataFromArray changed to 'Array_'
  28. //   Hint: Parameter 'Array' of _DVtChart.CopyDataToArray changed to 'Array_'
  29. //   Hint: Member 'Set' of 'ICoor' changed to 'Set_'
  30. //   Hint: Member 'Set' of 'ILCoor' changed to 'Set_'
  31. //   Hint: Member 'Set' of 'ICoor3' changed to 'Set_'
  32. //   Hint: Member 'Set' of 'IColor' changed to 'Set_'
  33. //   Hint: Member 'Type' of 'IPicture' changed to 'Type_'
  34. //   Hint: Member 'Set' of 'IVcView3d' changed to 'Set_'
  35. //   Hint: Member 'Set' of 'IVcDoughnut' changed to 'Set_'
  36. //   Hint: Member 'Set' of 'IVcPie' changed to 'Set_'
  37. //   Hint: Member 'Set' of 'IVcWeighting' changed to 'Set_'
  38. //   Hint: Parameter 'Type' of IVcStatLines.Style changed to 'Type_'
  39. //   Hint: Parameter 'Type' of IVcStatLines.Style changed to 'Type_'
  40. //   Hint: Member 'Type' of 'IVcScale' changed to 'Type_'
  41. //   Hint: Member 'Set' of 'IVcLightSource' changed to 'Set_'
  42. //   Hint: TypeInfo 'Label' changed to 'Label_'
  43. //   Hint: Member 'Set' of 'ICoor' changed to 'Set_'
  44. //   Hint: Member 'Set' of 'ILCoor' changed to 'Set_'
  45. //   Hint: Member 'Set' of 'ICoor3' changed to 'Set_'
  46. //   Hint: Member 'Set' of 'IColor' changed to 'Set_'
  47. //   Hint: Member 'Type' of 'IPicture' changed to 'Type_'
  48. //   Hint: Member 'Set' of 'IVcView3d' changed to 'Set_'
  49. //   Hint: Member 'Set' of 'IVcDoughnut' changed to 'Set_'
  50. //   Hint: Member 'Set' of 'IVcPie' changed to 'Set_'
  51. //   Hint: Member 'Set' of 'IVcWeighting' changed to 'Set_'
  52. //   Hint: Member 'Type' of 'IVcScale' changed to 'Type_'
  53. //   Hint: Member 'Set' of 'IVcLightSource' changed to 'Set_'
  54. // ************************************************************************ //
  55. {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
  56. {$WRITEABLECONST ON}
  57. {$WARN SYMBOL_PLATFORM OFF}
  58.  
  59. interface
  60.  
  61. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL;
  62.  
  63. // *********************************************************************//
  64. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  65. //   Type Libraries     : LIBID_xxxx                                      
  66. //   CoClasses          : CLASS_xxxx                                      
  67. //   DISPInterfaces     : DIID_xxxx                                       
  68. //   Non-DISP interfaces: IID_xxxx                                        
  69. // *********************************************************************//
  70. const
  71.   // TypeLibrary Major and minor versions
  72.   VCIFiLibMajorVersion = 1;
  73.   VCIFiLibMinorVersion = 0;
  74.  
  75.   LIBID_VCIFiLib: TGUID = '{5A721583-5AF0-11CE-8384-0020AF2337F2}';
  76.  
  77.   DIID__DVtChart: TGUID = '{5A721581-5AF0-11CE-8384-0020AF2337F2}';
  78.   DIID__DVtChartEvents: TGUID = '{5A721582-5AF0-11CE-8384-0020AF2337F2}';
  79.   CLASS_VtChart: TGUID = '{5A721580-5AF0-11CE-8384-0020AF2337F2}';
  80.   DIID_ICoor: TGUID = '{EBF97E20-731F-11CE-840F-00AA0042CB33}';
  81.   CLASS_Coor: TGUID = '{EBF97E21-731F-11CE-840F-00AA0042CB33}';
  82.   DIID_ILCoor: TGUID = '{EBF97E22-731F-11CE-840F-00AA0042CB33}';
  83.   CLASS_LCoor: TGUID = '{EBF97E23-731F-11CE-840F-00AA0042CB33}';
  84.   DIID_ICoor3: TGUID = '{177BF2A0-7350-11CE-840F-00AA0042CB33}';
  85.   CLASS_Coor3: TGUID = '{177BF2A1-7350-11CE-840F-00AA0042CB33}';
  86.   DIID_ILRect: TGUID = '{177BF2A2-7350-11CE-840F-00AA0042CB33}';
  87.   CLASS_LRect: TGUID = '{177BF2A3-7350-11CE-840F-00AA0042CB33}';
  88.   DIID_IRect: TGUID = '{FE5517C0-73FE-11CE-840F-00AA0042CB33}';
  89.   CLASS_Rect: TGUID = '{FE5517C1-73FE-11CE-840F-00AA0042CB33}';
  90.   DIID_IColor: TGUID = '{9BA79C60-7403-11CE-840F-00AA0042CB33}';
  91.   CLASS_VtColor: TGUID = '{9BA79C61-7403-11CE-840F-00AA0042CB33}';
  92.   DIID_IBrush: TGUID = '{AFE57020-7409-11CE-840F-00AA0042CB33}';
  93.   CLASS_Brush: TGUID = '{AFE57021-7409-11CE-840F-00AA0042CB33}';
  94.   DIID_IShadow: TGUID = '{AFE57022-7409-11CE-840F-00AA0042CB33}';
  95.   CLASS_Shadow: TGUID = '{AFE57023-7409-11CE-840F-00AA0042CB33}';
  96.   DIID_ITextLayout: TGUID = '{E26C7700-756C-11CE-840F-00AA0042CB33}';
  97.   CLASS_TextLayout: TGUID = '{E26C7701-756C-11CE-840F-00AA0042CB33}';
  98.   DIID_IVcTitle: TGUID = '{C82141A0-7571-11CE-840F-00AA0042CB33}';
  99.   CLASS_Title: TGUID = '{C82141A1-7571-11CE-840F-00AA0042CB33}';
  100.   DIID_ILocation: TGUID = '{EDDF9242-764B-11CE-840F-00AA0042CB33}';
  101.   CLASS_Location: TGUID = '{EDDF9243-764B-11CE-840F-00AA0042CB33}';
  102.   DIID_IFont: TGUID = '{2E6A37A0-77FC-11CE-840F-00AA0042CB33}';
  103.   CLASS_VtFont: TGUID = '{2E6A37A1-77FC-11CE-840F-00AA0042CB33}';
  104.   DIID_IBackdrop: TGUID = '{2E6A37A2-77FC-11CE-840F-00AA0042CB33}';
  105.   CLASS_Backdrop: TGUID = '{2E6A37A3-77FC-11CE-840F-00AA0042CB33}';
  106.   DIID_IFrame: TGUID = '{2E6A37A4-77FC-11CE-840F-00AA0042CB33}';
  107.   CLASS_Frame: TGUID = '{2E6A37A5-77FC-11CE-840F-00AA0042CB33}';
  108.   DIID_IGradient: TGUID = '{2E6A37A6-77FC-11CE-840F-00AA0042CB33}';
  109.   CLASS_Gradient: TGUID = '{2E6A37A7-77FC-11CE-840F-00AA0042CB33}';
  110.   DIID_IPicture: TGUID = '{FD30FB00-789C-11CE-840F-00AA0042CB33}';
  111.   CLASS_VtPicture: TGUID = '{FD30FB01-789C-11CE-840F-00AA0042CB33}';
  112.   DIID_IFill: TGUID = '{FD30FB02-789C-11CE-840F-00AA0042CB33}';
  113.   CLASS_Fill: TGUID = '{FD30FB03-789C-11CE-840F-00AA0042CB33}';
  114.   DIID_IVcPen: TGUID = '{279B5A40-8098-11CE-BECC-00AA0042CB33}';
  115.   CLASS_Pen: TGUID = '{279B5A41-8098-11CE-BECC-00AA0042CB33}';
  116.   DIID_IVcMarker: TGUID = '{3080E742-813F-11CE-BECC-00AA0042CB33}';
  117.   CLASS_Marker: TGUID = '{3080E743-813F-11CE-BECC-00AA0042CB33}';
  118.   DIID_IVcFootnote: TGUID = '{4F053F00-8396-11CE-BECC-00AA0042CB33}';
  119.   CLASS_Footnote: TGUID = '{4F053F01-8396-11CE-BECC-00AA0042CB33}';
  120.   DIID_IVcLegend: TGUID = '{95C52B60-83B1-11CE-BECC-00AA0042CB33}';
  121.   CLASS_Legend: TGUID = '{95C52B61-83B1-11CE-BECC-00AA0042CB33}';
  122.   DIID_IVcPrintInformation: TGUID = '{CFA0AC00-8B6E-11CE-840F-00AA0042CB33}';
  123.   CLASS_PrintInformation: TGUID = '{CFA0AC01-8B6E-11CE-840F-00AA0042CB33}';
  124.   DIID_IVcDataGrid: TGUID = '{6CB603A0-8F70-11CE-840F-00AA0042CB33}';
  125.   CLASS_DataGrid: TGUID = '{6CB603A1-8F70-11CE-840F-00AA0042CB33}';
  126.   DIID_IVcPlot: TGUID = '{F77BA680-9037-11CE-86B3-444553540000}';
  127.   CLASS_Plot: TGUID = '{F77BA681-9037-11CE-86B3-444553540000}';
  128.   DIID_IVcView3d: TGUID = '{21645F62-90F0-11CE-86B3-444553540000}';
  129.   CLASS_View3d: TGUID = '{21645F63-90F0-11CE-86B3-444553540000}';
  130.   DIID_IVcPlotBase: TGUID = '{508D02E0-90FC-11CE-86B3-444553540000}';
  131.   CLASS_PlotBase: TGUID = '{508D02E1-90FC-11CE-86B3-444553540000}';
  132.   DIID_IVcDoughnut: TGUID = '{508D02E2-90FC-11CE-86B3-444553540000}';
  133.   CLASS_Doughnut: TGUID = '{508D02E3-90FC-11CE-86B3-444553540000}';
  134.   DIID_IVcPie: TGUID = '{508D02E4-90FC-11CE-86B3-444553540000}';
  135.   CLASS_Pie: TGUID = '{508D02E5-90FC-11CE-86B3-444553540000}';
  136.   DIID_IVcWeighting: TGUID = '{508D02E6-90FC-11CE-86B3-444553540000}';
  137.   CLASS_Weighting: TGUID = '{508D02E7-90FC-11CE-86B3-444553540000}';
  138.   DIID_IVcWall: TGUID = '{508D02E8-90FC-11CE-86B3-444553540000}';
  139.   CLASS_Wall: TGUID = '{508D02E9-90FC-11CE-86B3-444553540000}';
  140.   DIID_IVcSeries: TGUID = '{0AA0FE20-912A-11CE-86B3-444553540000}';
  141.   CLASS_Series: TGUID = '{0AA0FE21-912A-11CE-86B3-444553540000}';
  142.   DIID_IVcBar: TGUID = '{264931C0-91F1-11CE-840F-00AA0042CB33}';
  143.   CLASS_Bar: TGUID = '{264931C1-91F1-11CE-840F-00AA0042CB33}';
  144.   DIID_IVcHiLo: TGUID = '{51DCC620-95B7-11CE-86B3-444553540000}';
  145.   CLASS_HiLo: TGUID = '{51DCC621-95B7-11CE-86B3-444553540000}';
  146.   DIID_IVcPosition: TGUID = '{51DCC622-95B7-11CE-86B3-444553540000}';
  147.   CLASS_Position: TGUID = '{51DCC623-95B7-11CE-86B3-444553540000}';
  148.   DIID_IVcSeriesMarker: TGUID = '{51DCC624-95B7-11CE-86B3-444553540000}';
  149.   CLASS_SeriesMarker: TGUID = '{51DCC625-95B7-11CE-86B3-444553540000}';
  150.   DIID_IVcSeriesLabel: TGUID = '{51DCC626-95B7-11CE-86B3-444553540000}';
  151.   CLASS_SeriesLabel: TGUID = '{51DCC627-95B7-11CE-86B3-444553540000}';
  152.   DIID_IVcStatLines: TGUID = '{2F6DD6A0-95E5-11CE-86B3-444553540000}';
  153.   CLASS_StatLine: TGUID = '{2F6DD6A1-95E5-11CE-86B3-444553540000}';
  154.   DIID_IVcDataPointLabel: TGUID = '{2F6DD6A2-95E5-11CE-86B3-444553540000}';
  155.   CLASS_DataPointLabel: TGUID = '{2F6DD6A3-95E5-11CE-86B3-444553540000}';
  156.   DIID_IVcDataPoint: TGUID = '{2F6DD6A4-95E5-11CE-86B3-444553540000}';
  157.   CLASS_DataPoint: TGUID = '{2F6DD6A5-95E5-11CE-86B3-444553540000}';
  158.   DIID_IVcAxis: TGUID = '{027D7900-A023-11CE-840F-00AA0042CB33}';
  159.   CLASS_Axis: TGUID = '{027D7901-A023-11CE-840F-00AA0042CB33}';
  160.   DIID_IVcCategoryScale: TGUID = '{62375360-A17D-11CE-840F-00AA0042CB33}';
  161.   CLASS_CategoryScale: TGUID = '{62375361-A17D-11CE-840F-00AA0042CB33}';
  162.   DIID_IVcDateScale: TGUID = '{62375362-A17D-11CE-840F-00AA0042CB33}';
  163.   CLASS_DateScale: TGUID = '{62375363-A17D-11CE-840F-00AA0042CB33}';
  164.   DIID_IVcAxisGrid: TGUID = '{62375364-A17D-11CE-840F-00AA0042CB33}';
  165.   CLASS_AxisGrid: TGUID = '{62375365-A17D-11CE-840F-00AA0042CB33}';
  166.   DIID_IVcIntersection: TGUID = '{62375366-A17D-11CE-840F-00AA0042CB33}';
  167.   CLASS_Intersection: TGUID = '{62375367-A17D-11CE-840F-00AA0042CB33}';
  168.   DIID_IVcTick: TGUID = '{62375368-A17D-11CE-840F-00AA0042CB33}';
  169.   CLASS_Tick: TGUID = '{62375369-A17D-11CE-840F-00AA0042CB33}';
  170.   DIID_IVcScale: TGUID = '{6237536A-A17D-11CE-840F-00AA0042CB33}';
  171.   CLASS_AxisScale: TGUID = '{6237536B-A17D-11CE-840F-00AA0042CB33}';
  172.   DIID_IVcValueScale: TGUID = '{6237536C-A17D-11CE-840F-00AA0042CB33}';
  173.   CLASS_ValueScale: TGUID = '{6237536D-A17D-11CE-840F-00AA0042CB33}';
  174.   DIID_IVcAxisTitle: TGUID = '{6237536E-A17D-11CE-840F-00AA0042CB33}';
  175.   CLASS_AxisTitle: TGUID = '{6237536F-A17D-11CE-840F-00AA0042CB33}';
  176.   DIID_IVcLabel: TGUID = '{62375370-A17D-11CE-840F-00AA0042CB33}';
  177.   CLASS_Label_: TGUID = '{62375371-A17D-11CE-840F-00AA0042CB33}';
  178.   DIID_IVcLight: TGUID = '{B54A6420-A25E-11CE-840F-00AA0042CB33}';
  179.   CLASS_Light: TGUID = '{B54A6421-A25E-11CE-840F-00AA0042CB33}';
  180.   DIID_IVcElevation: TGUID = '{A71FB700-A732-11CE-840F-00AA0042CB33}';
  181.   CLASS_Elevation: TGUID = '{A71FB701-A732-11CE-840F-00AA0042CB33}';
  182.   DIID_IVcAttribute: TGUID = '{A71FB702-A732-11CE-840F-00AA0042CB33}';
  183.   CLASS_Attribute: TGUID = '{A71FB703-A732-11CE-840F-00AA0042CB33}';
  184.   DIID_IVcSurface: TGUID = '{A71FB704-A732-11CE-840F-00AA0042CB33}';
  185.   CLASS_Surface: TGUID = '{A71FB705-A732-11CE-840F-00AA0042CB33}';
  186.   DIID_IVcContour: TGUID = '{A71FB706-A732-11CE-840F-00AA0042CB33}';
  187.   CLASS_Contour: TGUID = '{A71FB707-A732-11CE-840F-00AA0042CB33}';
  188.   DIID_IVcLightSource: TGUID = '{CD9EFA60-AA40-11CE-840F-00AA0042CB33}';
  189.   CLASS_LightSource: TGUID = '{CD9EFA61-AA40-11CE-840F-00AA0042CB33}';
  190.   DIID_IVcSeriesCollection: TGUID = '{C14E8B60-AE2B-11CE-840F-00AA0042CB33}';
  191.   CLASS_SeriesCollection: TGUID = '{C14E8B61-AE2B-11CE-840F-00AA0042CB33}';
  192.   DIID_IVcDataPoints: TGUID = '{C20E5260-B06F-11CE-840F-00AA0042CB33}';
  193.   CLASS_DataPoints: TGUID = '{C20E5261-B06F-11CE-840F-00AA0042CB33}';
  194.   DIID_IVcLabels: TGUID = '{62B9A400-B93D-11CE-8410-00AA0042CB33}';
  195.   CLASS_Labels: TGUID = '{62B9A401-B93D-11CE-8410-00AA0042CB33}';
  196.   DIID_IVcXYZ: TGUID = '{7D001800-BC65-11CE-8410-00AA0042CB33}';
  197.   CLASS_XYZ: TGUID = '{7D001801-BC65-11CE-8410-00AA0042CB33}';
  198.   DIID_IVcLightSources: TGUID = '{6FE35CC0-CE50-11CE-8410-00AA0042CB33}';
  199.   CLASS_LightSources: TGUID = '{6FE35CC1-CE50-11CE-8410-00AA0042CB33}';
  200.   DIID_IVcAttributes: TGUID = '{5A693220-CFEF-11CE-8410-00AA0042CB33}';
  201.   CLASS_Attributes: TGUID = '{5A693221-CFEF-11CE-8410-00AA0042CB33}';
  202.   DIID_IVcContourGradient: TGUID = '{69032720-D303-11CE-8410-00AA0042CB33}';
  203.   CLASS_ContourGradient: TGUID = '{69032721-D303-11CE-8410-00AA0042CB33}';
  204.  
  205. // *********************************************************************//
  206. // Declaration of Enumerations defined in Type Library                    
  207. // *********************************************************************//
  208. // Constants for enum FontStyleConstants
  209. type
  210.   FontStyleConstants = TOleEnum;
  211. const
  212.   VtFontStyleBold = $00000001;
  213.   VtFontStyleItalic = $00000002;
  214.   VtFontStyleOutline = $00000004;
  215.  
  216. // Constants for enum FontEffectsConstants
  217. type
  218.   FontEffectsConstants = TOleEnum;
  219. const
  220.   VtFontEffectStrikeThrough = $00000100;
  221.   VtFontEffectUnderline = $00000200;
  222.  
  223. // Constants for enum FrameStyleConstants
  224. type
  225.   FrameStyleConstants = TOleEnum;
  226. const
  227.   VtFrameStyleNull = $00000000;
  228.   VtFrameStyleSingleLine = $00000001;
  229.   VtFrameStyleDoubleLine = $00000002;
  230.   VtFrameStyleThickInner = $00000003;
  231.   VtFrameStyleThickOuter = $00000004;
  232.  
  233. // Constants for enum BrushStyleConstants
  234. type
  235.   BrushStyleConstants = TOleEnum;
  236. const
  237.   VtBrushStyleNull = $00000000;
  238.   VtBrushStyleSolid = $00000001;
  239.   VtBrushStylePattern = $00000002;
  240.   VtBrushStyleHatched = $00000003;
  241.  
  242. // Constants for enum LabelComponentConstants
  243. type
  244.   LabelComponentConstants = TOleEnum;
  245. const
  246.   VtChLabelComponentValue = $00000001;
  247.   VtChLabelComponentPercent = $00000002;
  248.   VtChLabelComponentSeriesName = $00000004;
  249.   VtChLabelComponentPointName = $00000008;
  250.  
  251. // Constants for enum BrushPatternConstants
  252. type
  253.   BrushPatternConstants = TOleEnum;
  254. const
  255.   VtBrushPattern94Percent = $00000000;
  256.   VtBrushPattern88Percent = $00000001;
  257.   VtBrushPattern75Percent = $00000002;
  258.   VtBrushPattern50Percent = $00000003;
  259.   VtBrushPattern25Percent = $00000004;
  260.   VtBrushPatternBoldHorizontal = $00000005;
  261.   VtBrushPatternBoldVertical = $00000006;
  262.   VtBrushPatternBoldDownDiagonal = $00000007;
  263.   VtBrushPatternBoldUpDiagonal = $00000008;
  264.   VtBrushPatternChecks = $00000009;
  265.   VtBrushPatternWeave = $0000000A;
  266.   VtBrushPatternHorizontal = $0000000B;
  267.   VtBrushPatternVertical = $0000000C;
  268.   VtBrushPatternDownDiagonal = $0000000D;
  269.   VtBrushPatternUpDiagonal = $0000000E;
  270.   VtBrushPatternGrid = $0000000F;
  271.   VtBrushPatternTrellis = $00000010;
  272.   VtBrushPatternInvertedTrellis = $00000011;
  273.  
  274. // Constants for enum BrushHatchConstants
  275. type
  276.   BrushHatchConstants = TOleEnum;
  277. const
  278.   VtBrushHatchHorizontal = $00000000;
  279.   VtBrushHatchVertical = $00000001;
  280.   VtBrushHatchDownDiagonal = $00000002;
  281.   VtBrushHatchUpDiagonal = $00000003;
  282.   VtBrushHatchCross = $00000004;
  283.   VtBrushHatchDiagonalCross = $00000005;
  284.  
  285. // Constants for enum ShadowStyleConstants
  286. type
  287.   ShadowStyleConstants = TOleEnum;
  288. const
  289.   VtShadowStyleNull = $00000000;
  290.   VtShadowStyleDrop = $00000001;
  291.  
  292. // Constants for enum MouseFlagConstants
  293. type
  294.   MouseFlagConstants = TOleEnum;
  295. const
  296.   VtChMouseFlagShiftKeyDown = $00000004;
  297.   VtChMouseFlagControlKeyDown = $00000008;
  298.  
  299. // Constants for enum PenStyleConstants
  300. type
  301.   PenStyleConstants = TOleEnum;
  302. const
  303.   VtPenStyleNull = $00000000;
  304.   VtPenStyleSolid = $00000001;
  305.   VtPenStyleDashed = $00000002;
  306.   VtPenStyleDotted = $00000003;
  307.   VtPenStyleDashDot = $00000004;
  308.   VtPenStyleDashDotDot = $00000005;
  309.   VtPenStyleDitted = $00000006;
  310.   VtPenStyleDashDit = $00000007;
  311.   VtPenStyleDashDitDit = $00000008;
  312.  
  313. // Constants for enum PenJoinConstants
  314. type
  315.   PenJoinConstants = TOleEnum;
  316. const
  317.   VtPenJoinMiter = $00000000;
  318.   VtPenJoinRound = $00000001;
  319.   VtPenJoinBevel = $00000002;
  320.  
  321. // Constants for enum PenCapConstants
  322. type
  323.   PenCapConstants = TOleEnum;
  324. const
  325.   VtPenCapButt = $00000000;
  326.   VtPenCapRound = $00000001;
  327.   VtPenCapSquare = $00000002;
  328.  
  329. // Constants for enum GradientStyleConstants
  330. type
  331.   GradientStyleConstants = TOleEnum;
  332. const
  333.   VtGradientStyleHorizontal = $00000000;
  334.   VtGradientStyleVertical = $00000001;
  335.   VtGradientStyleRectangle = $00000002;
  336.   VtGradientStyleOval = $00000003;
  337.  
  338. // Constants for enum PictureTypeConstants
  339. type
  340.   PictureTypeConstants = TOleEnum;
  341. const
  342.   VtPictureTypeNull = $00000000;
  343.   VtPictureTypeBMP = $00000001;
  344.   VtPictureTypeWMF = $00000002;
  345.  
  346. // Constants for enum PictureOptionConstants
  347. type
  348.   PictureOptionConstants = TOleEnum;
  349. const
  350.   VtPictureOptionNoSizeHeader = $00000000;
  351.   VtPictureOptionTextAsCurves = $00000001;
  352.  
  353. // Constants for enum PictureMapTypeConstants
  354. type
  355.   PictureMapTypeConstants = TOleEnum;
  356. const
  357.   VtPictureMapTypeActual = $00000000;
  358.   VtPictureMapTypeFitted = $00000001;
  359.   VtPictureMapTypeStretched = $00000002;
  360.   VtPictureMapTypeTiled = $00000003;
  361.   VtPictureMapTypeCropFitted = $00000004;
  362.  
  363. // Constants for enum FillStyleConstants
  364. type
  365.   FillStyleConstants = TOleEnum;
  366. const
  367.   VtFillStyleNull = $00000000;
  368.   VtFillStyleBrush = $00000001;
  369.   VtFillStyleGradient = $00000002;
  370.  
  371. // Constants for enum LocationTypeConstants
  372. type
  373.   LocationTypeConstants = TOleEnum;
  374. const
  375.   VtChLocationTypeTopLeft = $00000000;
  376.   VtChLocationTypeTop = $00000001;
  377.   VtChLocationTypeTopRight = $00000002;
  378.   VtChLocationTypeLeft = $00000003;
  379.   VtChLocationTypeRight = $00000004;
  380.   VtChLocationTypeBottomLeft = $00000005;
  381.   VtChLocationTypeBottom = $00000006;
  382.   VtChLocationTypeBottomRight = $00000007;
  383.   VtChLocationTypeCustom = $00000008;
  384.  
  385. // Constants for enum AxisIdConstants
  386. type
  387.   AxisIdConstants = TOleEnum;
  388. const
  389.   VtChAxisIdX = $00000000;
  390.   VtChAxisIdY = $00000001;
  391.   VtChAxisIdY2 = $00000002;
  392.   VtChAxisIdZ = $00000003;
  393.  
  394. // Constants for enum AxisTickStyleConstants
  395. type
  396.   AxisTickStyleConstants = TOleEnum;
  397. const
  398.   VtChAxisTickStyleNone = $00000000;
  399.   VtChAxisTickStyleCenter = $00000001;
  400.   VtChAxisTickStyleInside = $00000002;
  401.   VtChAxisTickStyleOutside = $00000003;
  402.  
  403. // Constants for enum DateIntervalTypeConstants
  404. type
  405.   DateIntervalTypeConstants = TOleEnum;
  406. const
  407.   VtChDateIntervalTypeNone = $00000000;
  408.   VtChDateIntervalTypeDaily = $00000001;
  409.   VtChDateIntervalTypeWeekly = $00000002;
  410.   VtChDateIntervalTypeSemimonthly = $00000003;
  411.   VtChDateIntervalTypeMonthly = $00000004;
  412.   VtChDateIntervalTypeYearly = $00000005;
  413.  
  414. // Constants for enum ScaleTypeConstants
  415. type
  416.   ScaleTypeConstants = TOleEnum;
  417. const
  418.   VtChScaleTypeLinear = $00000000;
  419.   VtChScaleTypeLogarithmic = $00000001;
  420.   VtChScaleTypePercent = $00000002;
  421.  
  422. // Constants for enum PercentAxisBasisConstants
  423. type
  424.   PercentAxisBasisConstants = TOleEnum;
  425. const
  426.   VtChPercentAxisBasisMaxChart = $00000000;
  427.   VtChPercentAxisBasisMaxRow = $00000001;
  428.   VtChPercentAxisBasisMaxColumn = $00000002;
  429.   VtChPercentAxisBasisSumChart = $00000003;
  430.   VtChPercentAxisBasisSumRow = $00000004;
  431.   VtChPercentAxisBasisSumColumn = $00000005;
  432.  
  433. // Constants for enum PieWeightBasisConstants
  434. type
  435.   PieWeightBasisConstants = TOleEnum;
  436. const
  437.   VtChPieWeightBasisNone = $00000000;
  438.   VtChPieWeightBasisTotal = $00000001;
  439.   VtChPieWeightBasisSeries = $00000002;
  440.  
  441. // Constants for enum PieWeightStyleConstants
  442. type
  443.   PieWeightStyleConstants = TOleEnum;
  444. const
  445.   VtChPieWeightStyleArea = $00000000;
  446.   VtChPieWeightStyleDiameter = $00000001;
  447.  
  448. // Constants for enum SortTypeConstants
  449. type
  450.   SortTypeConstants = TOleEnum;
  451. const
  452.   VtSortTypeNone = $00000000;
  453.   VtSortTypeAscending = $00000001;
  454.   VtSortTypeDescending = $00000002;
  455.  
  456. // Constants for enum AngleUnitsConstants
  457. type
  458.   AngleUnitsConstants = TOleEnum;
  459. const
  460.   VtAngleUnitsDegrees = $00000000;
  461.   VtAngleUnitsRadians = $00000001;
  462.   VtAngleUnitsGrads = $00000002;
  463.  
  464. // Constants for enum SubPlotLabelLocationTypeConstants
  465. type
  466.   SubPlotLabelLocationTypeConstants = TOleEnum;
  467. const
  468.   VtChSubPlotLabelLocationTypeNone = $00000000;
  469.   VtChSubPlotLabelLocationTypeAbove = $00000001;
  470.   VtChSubPlotLabelLocationTypeBelow = $00000002;
  471.   VtChSubPlotLabelLocationTypeCenter = $00000003;
  472.  
  473. // Constants for enum LabelLineStyleConstants
  474. type
  475.   LabelLineStyleConstants = TOleEnum;
  476. const
  477.   VtChLabelLineStyleNone = $00000000;
  478.   VtChLabelLineStyleStraight = $00000001;
  479.   VtChLabelLineStyleBent = $00000002;
  480.  
  481. // Constants for enum LabelLocationTypeConstants
  482. type
  483.   LabelLocationTypeConstants = TOleEnum;
  484. const
  485.   VtChLabelLocationTypeNone = $00000000;
  486.   VtChLabelLocationTypeAbovePoint = $00000001;
  487.   VtChLabelLocationTypeBelowPoint = $00000002;
  488.   VtChLabelLocationTypeCenter = $00000003;
  489.   VtChLabelLocationTypeBase = $00000004;
  490.   VtChLabelLocationTypeInside = $00000005;
  491.   VtChLabelLocationTypeOutside = $00000006;
  492.   VtChLabelLocationTypeLeft = $00000007;
  493.   VtChLabelLocationTypeRight = $00000008;
  494.  
  495. // Constants for enum ContourColorTypeConstants
  496. type
  497.   ContourColorTypeConstants = TOleEnum;
  498. const
  499.   VtChContourColorTypeAutomatic = $00000000;
  500.   VtChContourColorTypeGradient = $00000001;
  501.   VtChContourColorTypeManual = $00000002;
  502.  
  503. // Constants for enum ContourDisplayTypeConstants
  504. type
  505.   ContourDisplayTypeConstants = TOleEnum;
  506. const
  507.   VtChContourDisplayTypeCBands = $00000000;
  508.   VtChContourDisplayTypeCLines = $00000001;
  509.  
  510. // Constants for enum SurfaceBaseTypeConstants
  511. type
  512.   SurfaceBaseTypeConstants = TOleEnum;
  513. const
  514.   VtChSurfaceBaseTypePedestal = $00000000;
  515.   VtChSurfaceBaseTypeStandard = $00000001;
  516.   VtChSurfaceBaseTypeStandardWithCBands = $00000002;
  517.   VtChSurfaceBaseTypeStandardWithCLines = $00000003;
  518.  
  519. // Constants for enum SurfaceDisplayTypeConstants
  520. type
  521.   SurfaceDisplayTypeConstants = TOleEnum;
  522. const
  523.   VtChSurfaceDisplayTypeNone = $00000000;
  524.   VtChSurfaceDisplayTypeCBands = $00000001;
  525.   VtChSurfaceDisplayTypeCLines = $00000002;
  526.   VtChSurfaceDisplayTypeSolid = $00000003;
  527.   VtChSurfaceDisplayTypeSolidWithCLines = $00000004;
  528.  
  529. // Constants for enum SurfaceProjectionTypeConstants
  530. type
  531.   SurfaceProjectionTypeConstants = TOleEnum;
  532. const
  533.   VtChSurfaceProjectionTypeNone = $00000000;
  534.   VtChSurfaceProjectionTypeCBands = $00000001;
  535.   VtChSurfaceProjectionTypeCLines = $00000002;
  536.  
  537. // Constants for enum SurfaceWireframeTypeConstants
  538. type
  539.   SurfaceWireframeTypeConstants = TOleEnum;
  540. const
  541.   VtChSurfaceWireframeTypeNone = $00000000;
  542.   VtChSurfaceWireframeTypeMajor = $00000001;
  543.   VtChSurfaceWireframeTypeMajorAndMinor = $00000002;
  544.  
  545. // Constants for enum MarkerStyleConstants
  546. type
  547.   MarkerStyleConstants = TOleEnum;
  548. const
  549.   VtMarkerStyleDash = $00000000;
  550.   VtMarkerStylePlus = $00000001;
  551.   VtMarkerStyleX = $00000002;
  552.   VtMarkerStyleStar = $00000003;
  553.   VtMarkerStyleCircle = $00000004;
  554.   VtMarkerStyleSquare = $00000005;
  555.   VtMarkerStyleDiamond = $00000006;
  556.   VtMarkerStyleUpTriangle = $00000007;
  557.   VtMarkerStyleDownTriangle = $00000008;
  558.   VtMarkerStyleFilledCircle = $00000009;
  559.   VtMarkerStyleFilledSquare = $0000000A;
  560.   VtMarkerStyleFilledDiamond = $0000000B;
  561.   VtMarkerStyleFilledUpTriangle = $0000000C;
  562.   VtMarkerStyleFilledDownTriangle = $0000000D;
  563.   VtMarkerStyle3dBall = $0000000E;
  564.  
  565. // Constants for enum ProjectionTypeConstants
  566. type
  567.   ProjectionTypeConstants = TOleEnum;
  568. const
  569.   VtProjectionTypePerspective = $00000000;
  570.   VtProjectionTypeOblique = $00000001;
  571.   VtProjectionTypeOrthogonal = $00000002;
  572.  
  573. // Constants for enum SmoothingTypeConstants
  574. type
  575.   SmoothingTypeConstants = TOleEnum;
  576. const
  577.   VtSmoothingTypeNone = $00000000;
  578.   VtSmoothingTypeQuadraticBSpline = $00000001;
  579.   VtSmoothingTypeCubicBSpline = $00000002;
  580.  
  581. // Constants for enum HorizontalAlignmentConstants
  582. type
  583.   HorizontalAlignmentConstants = TOleEnum;
  584. const
  585.   VtHorizontalAlignmentLeft = $00000000;
  586.   VtHorizontalAlignmentRight = $00000001;
  587.   VtHorizontalAlignmentCenter = $00000002;
  588.  
  589. // Constants for enum VerticalAlignmentConstants
  590. type
  591.   VerticalAlignmentConstants = TOleEnum;
  592. const
  593.   VtVerticalAlignmentTop = $00000000;
  594.   VtVerticalAlignmentBottom = $00000001;
  595.   VtVerticalAlignmentCenter = $00000002;
  596.  
  597. // Constants for enum OrientationConstants
  598. type
  599.   OrientationConstants = TOleEnum;
  600. const
  601.   VtOrientationHorizontal = $00000000;
  602.   VtOrientationVertical = $00000001;
  603.   VtOrientationUp = $00000002;
  604.   VtOrientationDown = $00000003;
  605.  
  606. // Constants for enum DcTypeConstants
  607. type
  608.   DcTypeConstants = TOleEnum;
  609. const
  610.   VtDcTypeNull = $00000000;
  611.   VtDcTypeDisplay = $00000001;
  612.   VtDcTypePrinter = $00000002;
  613.   VtDcTypeMetafile = $00000003;
  614.  
  615. // Constants for enum PrintScaleTypeConstants
  616. type
  617.   PrintScaleTypeConstants = TOleEnum;
  618. const
  619.   VtPrintScaleTypeActual = $00000000;
  620.   VtPrintScaleTypeFitted = $00000001;
  621.   VtPrintScaleTypeStretched = $00000002;
  622.  
  623. // Constants for enum StatTypeConstants
  624. type
  625.   StatTypeConstants = TOleEnum;
  626. const
  627.   VtChStatsMinimum = $00000001;
  628.   VtChStatsMaximum = $00000002;
  629.   VtChStatsMean = $00000004;
  630.   VtChStatsStddev = $00000008;
  631.   VtChStatsRegression = $00000010;
  632.  
  633. // Constants for enum PrintOrientationTypeConstants
  634. type
  635.   PrintOrientationTypeConstants = TOleEnum;
  636. const
  637.   VtPrintOrientationPortrait = $00000000;
  638.   VtPrintOrientationLandscape = $00000001;
  639.  
  640. // Constants for enum TextOutputTypeConstants
  641. type
  642.   TextOutputTypeConstants = TOleEnum;
  643. const
  644.   VtTextOutputTypeHardware = $00000000;
  645.   VtTextOutputTypePolygon = $00000001;
  646.  
  647. // Constants for enum TextLengthTypeConstants
  648. type
  649.   TextLengthTypeConstants = TOleEnum;
  650. const
  651.   VtTextLengthTypeVirtual = $00000000;
  652.   VtTextLengthTypeDevice = $00000001;
  653.  
  654. // Constants for enum PartTypeConstants
  655. type
  656.   PartTypeConstants = TOleEnum;
  657. const
  658.   VtChPartTypeChart = $00000000;
  659.   VtChPartTypeTitle = $00000001;
  660.   VtChPartTypeFootnote = $00000002;
  661.   VtChPartTypeLegend = $00000003;
  662.   VtChPartTypePlot = $00000004;
  663.   VtChPartTypeSeries = $00000005;
  664.   VtChPartTypeSeriesLabel = $00000006;
  665.   VtChPartTypePoint = $00000007;
  666.   VtChPartTypePointLabel = $00000008;
  667.   VtChPartTypeAxis = $00000009;
  668.   VtChPartTypeAxisLabel = $0000000A;
  669.   VtChPartTypeAxisTitle = $0000000B;
  670.  
  671. // Constants for enum DrawModeConstants
  672. type
  673.   DrawModeConstants = TOleEnum;
  674. const
  675.   VtChDrawModeDraw = $00000000;
  676.   VtChDrawModeBlit = $00000001;
  677.  
  678. // Constants for enum SsLinkModeConstants
  679. type
  680.   SsLinkModeConstants = TOleEnum;
  681. const
  682.   VtChSsLinkModeOff = $00000000;
  683.   VtChSsLinkModeOn = $00000001;
  684.   VtChSsLinkModeAutoParse = $00000002;
  685.  
  686. // Constants for enum SeriesTypeConstants
  687. type
  688.   SeriesTypeConstants = TOleEnum;
  689. const
  690.   VtChSeriesTypeDefault = $FFFFFFFF;
  691.   VtChSeriesType3dBar = $00000000;
  692.   VtChSeriesType2dBar = $00000001;
  693.   VtChSeriesType3dHorizontalBar = $00000002;
  694.   VtChSeriesType2dHorizontalBar = $00000003;
  695.   VtChSeriesType3dClusteredBar = $00000004;
  696.   VtChSeriesType3dLine = $00000005;
  697.   VtChSeriesType2dLine = $00000006;
  698.   VtChSeriesType3dArea = $00000007;
  699.   VtChSeriesType2dArea = $00000008;
  700.   VtChSeriesType3dStep = $00000009;
  701.   VtChSeriesType2dStep = $0000000A;
  702.   VtChSeriesType2dXY = $0000000B;
  703.   VtChSeriesType2dPolar = $0000000C;
  704.   VtChSeriesType2dRadarLine = $0000000D;
  705.   VtChSeriesType2dRadarArea = $0000000E;
  706.   VtChSeriesType2dBubble = $0000000F;
  707.   VtChSeriesType2dHiLo = $00000010;
  708.   VtChSeriesType2dHLC = $00000011;
  709.   VtChSeriesType2dHLCRight = $00000012;
  710.   VtChSeriesType2dOHLC = $00000013;
  711.   VtChSeriesType2dOHLCBar = $00000014;
  712.   VtChSeriesType2dGantt = $00000015;
  713.   VtChSeriesType3dGantt = $00000016;
  714.   VtChSeriesType3dPie = $00000017;
  715.   VtChSeriesType2dPie = $00000018;
  716.   VtChSeriesType3dDoughnut = $00000019;
  717.   VtChSeriesType2dDates = $0000001A;
  718.   VtChSeriesType3dBarHiLo = $0000001B;
  719.   VtChSeriesType2dBarHiLo = $0000001C;
  720.   VtChSeriesType3dHorizontalBarHiLo = $0000001D;
  721.   VtChSeriesType2dHorizontalBarHiLo = $0000001E;
  722.   VtChSeriesType3dClusteredBarHiLo = $0000001F;
  723.   VtChSeriesType3dSurface = $00000020;
  724.   VtChSeriesType2dContour = $00000021;
  725.   VtChSeriesType3dXYZ = $00000022;
  726.  
  727. // Constants for enum ChartTypeConstants
  728. type
  729.   ChartTypeConstants = TOleEnum;
  730. const
  731.   VtChChartType3dBar = $00000000;
  732.   VtChChartType2dBar = $00000001;
  733.   VtChChartType3dLine = $00000002;
  734.   VtChChartType2dLine = $00000003;
  735.   VtChChartType3dArea = $00000004;
  736.   VtChChartType2dArea = $00000005;
  737.   VtChChartType3dStep = $00000006;
  738.   VtChChartType2dStep = $00000007;
  739.   VtChChartType3dCombination = $00000008;
  740.   VtChChartType2dCombination = $00000009;
  741.   VtChChartType3dHorizontalBar = $0000000A;
  742.   VtChChartType2dHorizontalBar = $0000000B;
  743.   VtChChartType3dClusteredBar = $0000000C;
  744.   VtChChartType3dPie = $0000000D;
  745.   VtChChartType2dPie = $0000000E;
  746.   VtChChartType3dDoughnut = $0000000F;
  747.   VtChChartType2dXY = $00000010;
  748.   VtChChartType2dPolar = $00000011;
  749.   VtChChartType2dRadar = $00000012;
  750.   VtChChartType2dBubble = $00000013;
  751.   VtChChartType2dHiLo = $00000014;
  752.   VtChChartType2dGantt = $00000015;
  753.   VtChChartType3dGantt = $00000016;
  754.   VtChChartType3dSurface = $00000017;
  755.   VtChChartType2dContour = $00000018;
  756.   VtChChartType3dScatter = $00000019;
  757.   VtChChartType3dXYZ = $0000001A;
  758.  
  759. type
  760.  
  761. // *********************************************************************//
  762. // Forward declaration of types defined in TypeLibrary                    
  763. // *********************************************************************//
  764.   _DVtChart = dispinterface;
  765.   _DVtChartEvents = dispinterface;
  766.   ICoor = dispinterface;
  767.   ILCoor = dispinterface;
  768.   ICoor3 = dispinterface;
  769.   ILRect = dispinterface;
  770.   IRect = dispinterface;
  771.   IColor = dispinterface;
  772.   IBrush = dispinterface;
  773.   IShadow = dispinterface;
  774.   ITextLayout = dispinterface;
  775.   IVcTitle = dispinterface;
  776.   ILocation = dispinterface;
  777.   IFont = dispinterface;
  778.   IBackdrop = dispinterface;
  779.   IFrame = dispinterface;
  780.   IGradient = dispinterface;
  781.   IPicture = dispinterface;
  782.   IFill = dispinterface;
  783.   IVcPen = dispinterface;
  784.   IVcMarker = dispinterface;
  785.   IVcFootnote = dispinterface;
  786.   IVcLegend = dispinterface;
  787.   IVcPrintInformation = dispinterface;
  788.   IVcDataGrid = dispinterface;
  789.   IVcPlot = dispinterface;
  790.   IVcView3d = dispinterface;
  791.   IVcPlotBase = dispinterface;
  792.   IVcDoughnut = dispinterface;
  793.   IVcPie = dispinterface;
  794.   IVcWeighting = dispinterface;
  795.   IVcWall = dispinterface;
  796.   IVcSeries = dispinterface;
  797.   IVcBar = dispinterface;
  798.   IVcHiLo = dispinterface;
  799.   IVcPosition = dispinterface;
  800.   IVcSeriesMarker = dispinterface;
  801.   IVcSeriesLabel = dispinterface;
  802.   IVcStatLines = dispinterface;
  803.   IVcDataPointLabel = dispinterface;
  804.   IVcDataPoint = dispinterface;
  805.   IVcAxis = dispinterface;
  806.   IVcCategoryScale = dispinterface;
  807.   IVcDateScale = dispinterface;
  808.   IVcAxisGrid = dispinterface;
  809.   IVcIntersection = dispinterface;
  810.   IVcTick = dispinterface;
  811.   IVcScale = dispinterface;
  812.   IVcValueScale = dispinterface;
  813.   IVcAxisTitle = dispinterface;
  814.   IVcLabel = dispinterface;
  815.   IVcLight = dispinterface;
  816.   IVcElevation = dispinterface;
  817.   IVcAttribute = dispinterface;
  818.   IVcSurface = dispinterface;
  819.   IVcContour = dispinterface;
  820.   IVcLightSource = dispinterface;
  821.   IVcSeriesCollection = dispinterface;
  822.   IVcDataPoints = dispinterface;
  823.   IVcLabels = dispinterface;
  824.   IVcXYZ = dispinterface;
  825.   IVcLightSources = dispinterface;
  826.   IVcAttributes = dispinterface;
  827.   IVcContourGradient = dispinterface;
  828.  
  829. // *********************************************************************//
  830. // Declaration of CoClasses defined in Type Library                       
  831. // (NOTE: Here we map each CoClass to its Default Interface)              
  832. // *********************************************************************//
  833.   VtChart = _DVtChart;
  834.   Coor = ICoor;
  835.   LCoor = ILCoor;
  836.   Coor3 = ICoor3;
  837.   LRect = ILRect;
  838.   Rect = IRect;
  839.   VtColor = IColor;
  840.   Brush = IBrush;
  841.   Shadow = IShadow;
  842.   TextLayout = ITextLayout;
  843.   Title = IVcTitle;
  844.   Location = ILocation;
  845.   VtFont = IFont;
  846.   Backdrop = IBackdrop;
  847.   Frame = IFrame;
  848.   Gradient = IGradient;
  849.   VtPicture = IPicture;
  850.   Fill = IFill;
  851.   Pen = IVcPen;
  852.   Marker = IVcMarker;
  853.   Footnote = IVcFootnote;
  854.   Legend = IVcLegend;
  855.   PrintInformation = IVcPrintInformation;
  856.   DataGrid = IVcDataGrid;
  857.   Plot = IVcPlot;
  858.   View3d = IVcView3d;
  859.   PlotBase = IVcPlotBase;
  860.   Doughnut = IVcDoughnut;
  861.   Pie = IVcPie;
  862.   Weighting = IVcWeighting;
  863.   Wall = IVcWall;
  864.   Series = IVcSeries;
  865.   Bar = IVcBar;
  866.   HiLo = IVcHiLo;
  867.   Position = IVcPosition;
  868.   SeriesMarker = IVcSeriesMarker;
  869.   SeriesLabel = IVcSeriesLabel;
  870.   StatLine = IVcStatLines;
  871.   DataPointLabel = IVcDataPointLabel;
  872.   DataPoint = IVcDataPoint;
  873.   Axis = IVcAxis;
  874.   CategoryScale = IVcCategoryScale;
  875.   DateScale = IVcDateScale;
  876.   AxisGrid = IVcAxisGrid;
  877.   Intersection = IVcIntersection;
  878.   Tick = IVcTick;
  879.   AxisScale = IVcScale;
  880.   ValueScale = IVcValueScale;
  881.   AxisTitle = IVcAxisTitle;
  882.   Label_ = IVcLabel;
  883.   Light = IVcLight;
  884.   Elevation = IVcElevation;
  885.   Attribute = IVcAttribute;
  886.   Surface = IVcSurface;
  887.   Contour = IVcContour;
  888.   LightSource = IVcLightSource;
  889.   SeriesCollection = IVcSeriesCollection;
  890.   DataPoints = IVcDataPoints;
  891.   Labels = IVcLabels;
  892.   XYZ = IVcXYZ;
  893.   LightSources = IVcLightSources;
  894.   Attributes = IVcAttributes;
  895.   ContourGradient = IVcContourGradient;
  896.  
  897.  
  898. // *********************************************************************//
  899. // Declaration of structures, unions and aliases.                         
  900. // *********************************************************************//
  901.   PSmallint1 = ^Smallint; {*}
  902.   PSYSINT1 = ^OLE_HANDLE; {*}
  903.   PInteger1 = ^Integer; {*}
  904.   PDouble1 = ^Double; {*}
  905.  
  906.  
  907. // *********************************************************************//
  908. // DispIntf:  _DVtChart
  909. // Flags:     (4112) Hidden Dispatchable
  910. // GUID:      {5A721581-5AF0-11CE-8384-0020AF2337F2}
  911. // *********************************************************************//
  912.   _DVtChart = dispinterface
  913.     ['{5A721581-5AF0-11CE-8384-0020AF2337F2}']
  914.     property AutoIncrement: WordBool dispid 1;
  915.     property RandomFill: WordBool dispid 2;
  916.     property ChartType: Smallint dispid 3;
  917.     property Column: Smallint dispid 4;
  918.     property ColumnCount: Smallint dispid 5;
  919.     property ColumnLabel: WideString dispid 6;
  920.     property ColumnLabelCount: Smallint dispid 7;
  921.     property ColumnLabelIndex: Smallint dispid 8;
  922.     property Data: WideString dispid 9;
  923.     property FootnoteText: WideString dispid 10;
  924.     property Repaint: WordBool dispid 11;
  925.     property Row: Smallint dispid 12;
  926.     property RowCount: Smallint dispid 13;
  927.     property RowLabel: WideString dispid 14;
  928.     property RowLabelCount: Smallint dispid 15;
  929.     property RowLabelIndex: Smallint dispid 16;
  930.     property SeriesColumn: Smallint dispid 17;
  931.     property SeriesType: Smallint dispid 18;
  932.     property ShowLegend: WordBool dispid 19;
  933.     property SsLinkMode: Smallint dispid 20;
  934.     property SsLinkRange: WideString dispid 21;
  935.     property SsLinkSheet: WideString dispid 22;
  936.     property DrawMode: Smallint dispid 23;
  937.     property BorderStyle: Smallint dispid -504;
  938.     property Enabled: WordBool dispid -514;
  939.     property hWnd: Smallint dispid -515;
  940.     property Handle: Integer readonly dispid 24;
  941.     property Picture: IPictureDisp readonly dispid 25;
  942.     property Title: IDispatch dispid 26;
  943.     property Footnote: IDispatch dispid 27;
  944.     property TitleText: WideString dispid 28;
  945.     property Stacking: WordBool dispid 29;
  946.     property TextLengthType: Smallint dispid 30;
  947.     property AllowUserChanges: WordBool dispid 31;
  948.     property AllowSelections: WordBool dispid 32;
  949.     property AllowSeriesSelection: WordBool dispid 33;
  950.     property AllowDynamicRotation: WordBool dispid 34;
  951.     property ActiveSeriesCount: Smallint dispid 35;
  952.     property Backdrop: IDispatch dispid 36;
  953.     property PrintInformation: IDispatch dispid 37;
  954.     property Legend: IDispatch dispid 38;
  955.     property DataGrid: IDispatch dispid 39;
  956.     property Plot: IDispatch dispid 40;
  957.     property TwipsWidth: Integer dispid 41;
  958.     property TwipsHeight: Integer dispid 42;
  959.     property AllowDithering: WordBool dispid 43;
  960.     property ErrorOffset: Smallint dispid 44;
  961.     property DoSetCursor: WordBool dispid 45;
  962.     property FileName: WideString dispid 46;
  963.     property Chart3d: WordBool dispid 47;
  964.     property SsLinkBook: WideString dispid 48;
  965.     procedure EditPaste; dispid 49;
  966.     procedure EditCopy; dispid 50;
  967.     procedure ActivateSelectionDialog; dispid 51;
  968.     procedure Layout; dispid 52;
  969.     procedure ToDefaults; dispid 53;
  970.     procedure PrintSetupDialog; dispid 54;
  971.     procedure PrintChart; dispid 55;
  972.     procedure SelectPart(part: Smallint; index1: Smallint; index2: Smallint; index3: Smallint; 
  973.                          index4: Smallint); dispid 56;
  974.     procedure GetSelectedPart(var part: Smallint; var index1: Smallint; var index2: Smallint; 
  975.                               var index3: Smallint; var index4: Smallint); dispid 57;
  976.     procedure GetDLLVersion(var major: Smallint; var minor: Smallint); dispid 58;
  977.     procedure TwipsToChartPart(xVal: Integer; yVal: Integer; var part: Smallint; 
  978.                                var index1: Smallint; var index2: Smallint; var index3: Smallint; 
  979.                                var index4: Smallint); dispid 59;
  980.     procedure ReadFromFile(const FileName: WideString); dispid 60;
  981.     procedure WritePictureToFile(const FileName: WideString; pictureType: Smallint; 
  982.                                  options: Smallint); dispid 61;
  983.     procedure WriteToFile(const FileName: WideString); dispid 62;
  984.     procedure ActivateFormatMenu(X: Integer; Y: Integer); dispid 63;
  985.     procedure GetMetafile(options: Smallint; var Handle: OLE_HANDLE; var Width: Integer; 
  986.                           var Height: Integer); dispid 64;
  987.     procedure CopyDataFromArray(Top: Smallint; Left: Smallint; Bottom: Smallint; Right: Smallint; 
  988.                                 Array_: OleVariant); dispid 65;
  989.     procedure CopyDataToArray(Top: Smallint; Left: Smallint; Bottom: Smallint; Right: Smallint; 
  990.                               Array_: OleVariant); dispid 66;
  991.     procedure Draw(hDC: OLE_HANDLE; hDCType: Smallint; Top: Integer; Left: Integer; 
  992.                    Bottom: Integer; Right: Integer; Layout: WordBool; Stretch: WordBool); dispid 67;
  993.     property GetBitmap[options: OleVariant]: OLE_HANDLE readonly dispid 70;
  994.     procedure UseWizard; dispid 68;
  995.     procedure EditChartData; dispid 69;
  996.     procedure Refresh; dispid -550;
  997.     procedure AboutBox; dispid -552;
  998.   end;
  999.  
  1000. // *********************************************************************//
  1001. // DispIntf:  _DVtChartEvents
  1002. // Flags:     (4096) Dispatchable
  1003. // GUID:      {5A721582-5AF0-11CE-8384-0020AF2337F2}
  1004. // *********************************************************************//
  1005.   _DVtChartEvents = dispinterface
  1006.     ['{5A721582-5AF0-11CE-8384-0020AF2337F2}']
  1007.     procedure ChartSelected(var MouseFlags: Smallint; var Cancel: Smallint); dispid 1;
  1008.     procedure TitleSelected(var MouseFlags: Smallint; var Cancel: Smallint); dispid 2;
  1009.     procedure FootnoteSelected(var MouseFlags: Smallint; var Cancel: Smallint); dispid 3;
  1010.     procedure LegendSelected(var MouseFlags: Smallint; var Cancel: Smallint); dispid 4;
  1011.     procedure PlotSelected(var MouseFlags: Smallint; var Cancel: Smallint); dispid 5;
  1012.     procedure AxisSelected(var AxisId: Smallint; var AxisIndex: Smallint; var MouseFlags: Smallint; 
  1013.                            var Cancel: Smallint); dispid 6;
  1014.     procedure AxisLabelSelected(var AxisId: Smallint; var AxisIndex: Smallint; 
  1015.                                 var labelSetIndex: Smallint; var LabelIndex: Smallint; 
  1016.                                 var MouseFlags: Smallint; var Cancel: Smallint); dispid 7;
  1017.     procedure AxisTitleSelected(var AxisId: Smallint; var AxisIndex: Smallint; 
  1018.                                 var MouseFlags: Smallint; var Cancel: Smallint); dispid 8;
  1019.     procedure PointSelected(var Series: Smallint; var DataPoint: Smallint; 
  1020.                             var MouseFlags: Smallint; var Cancel: Smallint); dispid 9;
  1021.     procedure PointLabelSelected(var Series: Smallint; var DataPoint: Smallint; 
  1022.                                  var MouseFlags: Smallint; var Cancel: Smallint); dispid 10;
  1023.     procedure SeriesSelected(var Series: Smallint; var MouseFlags: Smallint; var Cancel: Smallint); dispid 11;
  1024.     procedure SeriesLabelSelected(var Series: Smallint; var MouseFlags: Smallint; 
  1025.                                   var Cancel: Smallint); dispid 12;
  1026.     procedure ChartActivated(var MouseFlags: Smallint; var Cancel: Smallint); dispid 13;
  1027.     procedure TitleActivated(var MouseFlags: Smallint; var Cancel: Smallint); dispid 14;
  1028.     procedure FootnoteActivated(var MouseFlags: Smallint; var Cancel: Smallint); dispid 15;
  1029.     procedure LegendActivated(var MouseFlags: Smallint; var Cancel: Smallint); dispid 16;
  1030.     procedure PlotActivated(var MouseFlags: Smallint; var Cancel: Smallint); dispid 17;
  1031.     procedure AxisActivated(var AxisId: Smallint; var AxisIndex: Smallint; 
  1032.                             var MouseFlags: Smallint; var Cancel: Smallint); dispid 18;
  1033.     procedure AxisLabelActivated(var AxisId: Smallint; var AxisIndex: Smallint; 
  1034.                                  var labelSetIndex: Smallint; var LabelIndex: Smallint; 
  1035.                                  var MouseFlags: Smallint; var Cancel: Smallint); dispid 19;
  1036.     procedure AxisTitleActivated(var AxisId: Smallint; var AxisIndex: Smallint; 
  1037.                                  var MouseFlags: Smallint; var Cancel: Smallint); dispid 20;
  1038.     procedure PointActivated(var Series: Smallint; var DataPoint: Smallint; 
  1039.                              var MouseFlags: Smallint; var Cancel: Smallint); dispid 21;
  1040.     procedure PointLabelActivated(var Series: Smallint; var DataPoint: Smallint; 
  1041.                                   var MouseFlags: Smallint; var Cancel: Smallint); dispid 22;
  1042.     procedure SeriesActivated(var Series: Smallint; var MouseFlags: Smallint; var Cancel: Smallint); dispid 23;
  1043.     procedure SeriesLabelActivated(var Series: Smallint; var MouseFlags: Smallint; 
  1044.                                    var Cancel: Smallint); dispid 24;
  1045.     procedure Click; dispid -600;
  1046.     procedure DblClick; dispid -601;
  1047.     procedure KeyDown(var KeyCode: Smallint; Shift: Smallint); dispid -602;
  1048.     procedure KeyPress(var KeyAscii: Smallint); dispid -603;
  1049.     procedure KeyUp(var KeyCode: Smallint; Shift: Smallint); dispid -604;
  1050.     procedure MouseDown(Button: Smallint; Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -605;
  1051.     procedure MouseMove(Button: Smallint; Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -606;
  1052.     procedure MouseUp(Button: Smallint; Shift: Smallint; X: OLE_XPOS_PIXELS; Y: OLE_YPOS_PIXELS); dispid -607;
  1053.     procedure ApplyChanges; dispid 25;
  1054.   end;
  1055.  
  1056. // *********************************************************************//
  1057. // DispIntf:  ICoor
  1058. // Flags:     (4112) Hidden Dispatchable
  1059. // GUID:      {EBF97E20-731F-11CE-840F-00AA0042CB33}
  1060. // *********************************************************************//
  1061.   ICoor = dispinterface
  1062.     ['{EBF97E20-731F-11CE-840F-00AA0042CB33}']
  1063.     property X: Single dispid 1;
  1064.     property Y: Single dispid 2;
  1065.     procedure Set_(X: Single; Y: Single); dispid 3;
  1066.   end;
  1067.  
  1068. // *********************************************************************//
  1069. // DispIntf:  ILCoor
  1070. // Flags:     (4112) Hidden Dispatchable
  1071. // GUID:      {EBF97E22-731F-11CE-840F-00AA0042CB33}
  1072. // *********************************************************************//
  1073.   ILCoor = dispinterface
  1074.     ['{EBF97E22-731F-11CE-840F-00AA0042CB33}']
  1075.     property X: Integer dispid 1;
  1076.     property Y: Integer dispid 2;
  1077.     procedure Set_(X: Integer; Y: Integer); dispid 3;
  1078.   end;
  1079.  
  1080. // *********************************************************************//
  1081. // DispIntf:  ICoor3
  1082. // Flags:     (4112) Hidden Dispatchable
  1083. // GUID:      {177BF2A0-7350-11CE-840F-00AA0042CB33}
  1084. // *********************************************************************//
  1085.   ICoor3 = dispinterface
  1086.     ['{177BF2A0-7350-11CE-840F-00AA0042CB33}']
  1087.     property X: Single dispid 1;
  1088.     property Y: Single dispid 2;
  1089.     property Z: Single dispid 3;
  1090.     procedure Set_(X: Single; Y: Single; Z: Single); dispid 4;
  1091.   end;
  1092.  
  1093. // *********************************************************************//
  1094. // DispIntf:  ILRect
  1095. // Flags:     (4112) Hidden Dispatchable
  1096. // GUID:      {177BF2A2-7350-11CE-840F-00AA0042CB33}
  1097. // *********************************************************************//
  1098.   ILRect = dispinterface
  1099.     ['{177BF2A2-7350-11CE-840F-00AA0042CB33}']
  1100.     property Min: IDispatch dispid 1;
  1101.     property Max: IDispatch dispid 2;
  1102.   end;
  1103.  
  1104. // *********************************************************************//
  1105. // DispIntf:  IRect
  1106. // Flags:     (4112) Hidden Dispatchable
  1107. // GUID:      {FE5517C0-73FE-11CE-840F-00AA0042CB33}
  1108. // *********************************************************************//
  1109.   IRect = dispinterface
  1110.     ['{FE5517C0-73FE-11CE-840F-00AA0042CB33}']
  1111.     property Min: IDispatch dispid 1;
  1112.     property Max: IDispatch dispid 2;
  1113.   end;
  1114.  
  1115. // *********************************************************************//
  1116. // DispIntf:  IColor
  1117. // Flags:     (4112) Hidden Dispatchable
  1118. // GUID:      {9BA79C60-7403-11CE-840F-00AA0042CB33}
  1119. // *********************************************************************//
  1120.   IColor = dispinterface
  1121.     ['{9BA79C60-7403-11CE-840F-00AA0042CB33}']
  1122.     property Red: Smallint dispid 1;
  1123.     property Green: Smallint dispid 2;
  1124.     property Blue: Smallint dispid 3;
  1125.     property Automatic: WordBool dispid 4;
  1126.     procedure Set_(Red: Smallint; Green: Smallint; Blue: Smallint); dispid 5;
  1127.   end;
  1128.  
  1129. // *********************************************************************//
  1130. // DispIntf:  IBrush
  1131. // Flags:     (4112) Hidden Dispatchable
  1132. // GUID:      {AFE57020-7409-11CE-840F-00AA0042CB33}
  1133. // *********************************************************************//
  1134.   IBrush = dispinterface
  1135.     ['{AFE57020-7409-11CE-840F-00AA0042CB33}']
  1136.     property Style: Smallint dispid 1;
  1137.     property FillColor: IDispatch dispid 2;
  1138.     property PatternColor: IDispatch dispid 3;
  1139.     property Index: Smallint dispid 4;
  1140.   end;
  1141.  
  1142. // *********************************************************************//
  1143. // DispIntf:  IShadow
  1144. // Flags:     (4112) Hidden Dispatchable
  1145. // GUID:      {AFE57022-7409-11CE-840F-00AA0042CB33}
  1146. // *********************************************************************//
  1147.   IShadow = dispinterface
  1148.     ['{AFE57022-7409-11CE-840F-00AA0042CB33}']
  1149.     property Style: Smallint dispid 1;
  1150.     property Brush: IDispatch dispid 2;
  1151.     property Offset: IDispatch dispid 3;
  1152.   end;
  1153.  
  1154. // *********************************************************************//
  1155. // DispIntf:  ITextLayout
  1156. // Flags:     (4112) Hidden Dispatchable
  1157. // GUID:      {E26C7700-756C-11CE-840F-00AA0042CB33}
  1158. // *********************************************************************//
  1159.   ITextLayout = dispinterface
  1160.     ['{E26C7700-756C-11CE-840F-00AA0042CB33}']
  1161.     property HorzAlignment: Smallint dispid 1;
  1162.     property VertAlignment: Smallint dispid 2;
  1163.     property Orientation: Smallint dispid 3;
  1164.     property WordWrap: WordBool dispid 4;
  1165.   end;
  1166.  
  1167. // *********************************************************************//
  1168. // DispIntf:  IVcTitle
  1169. // Flags:     (4112) Hidden Dispatchable
  1170. // GUID:      {C82141A0-7571-11CE-840F-00AA0042CB33}
  1171. // *********************************************************************//
  1172.   IVcTitle = dispinterface
  1173.     ['{C82141A0-7571-11CE-840F-00AA0042CB33}']
  1174.     property TextLayout: IDispatch dispid 1;
  1175.     property Text: WideString dispid 2;
  1176.     property _Text: WideString dispid 0;
  1177.     property Location: IDispatch dispid 3;
  1178.     property Backdrop: IDispatch dispid 4;
  1179.     property VtFont: IDispatch dispid 5;
  1180.     property TextLength: Smallint dispid 6;
  1181.     procedure Select; dispid 7;
  1182.   end;
  1183.  
  1184. // *********************************************************************//
  1185. // DispIntf:  ILocation
  1186. // Flags:     (4112) Hidden Dispatchable
  1187. // GUID:      {EDDF9242-764B-11CE-840F-00AA0042CB33}
  1188. // *********************************************************************//
  1189.   ILocation = dispinterface
  1190.     ['{EDDF9242-764B-11CE-840F-00AA0042CB33}']
  1191.     property Rect: IDispatch dispid 1;
  1192.     property Visible: WordBool dispid 2;
  1193.     property LocationType: Smallint dispid 3;
  1194.   end;
  1195.  
  1196. // *********************************************************************//
  1197. // DispIntf:  IFont
  1198. // Flags:     (4112) Hidden Dispatchable
  1199. // GUID:      {2E6A37A0-77FC-11CE-840F-00AA0042CB33}
  1200. // *********************************************************************//
  1201.   IFont = dispinterface
  1202.     ['{2E6A37A0-77FC-11CE-840F-00AA0042CB33}']
  1203.     property Name: WideString dispid 1;
  1204.     property Size: Single dispid 2;
  1205.     property Style: Smallint dispid 3;
  1206.     property Effect: Smallint dispid 4;
  1207.     property VtColor: IDispatch dispid 5;
  1208.   end;
  1209.  
  1210. // *********************************************************************//
  1211. // DispIntf:  IBackdrop
  1212. // Flags:     (4112) Hidden Dispatchable
  1213. // GUID:      {2E6A37A2-77FC-11CE-840F-00AA0042CB33}
  1214. // *********************************************************************//
  1215.   IBackdrop = dispinterface
  1216.     ['{2E6A37A2-77FC-11CE-840F-00AA0042CB33}']
  1217.     property Shadow: IDispatch dispid 1;
  1218.     property Frame: IDispatch dispid 2;
  1219.     property Fill: IDispatch dispid 3;
  1220.   end;
  1221.  
  1222. // *********************************************************************//
  1223. // DispIntf:  IFrame
  1224. // Flags:     (4112) Hidden Dispatchable
  1225. // GUID:      {2E6A37A4-77FC-11CE-840F-00AA0042CB33}
  1226. // *********************************************************************//
  1227.   IFrame = dispinterface
  1228.     ['{2E6A37A4-77FC-11CE-840F-00AA0042CB33}']
  1229.     property Style: Smallint dispid 1;
  1230.     property FrameColor: IDispatch dispid 2;
  1231.     property SpaceColor: IDispatch dispid 3;
  1232.     property Width: Single dispid 4;
  1233.   end;
  1234.  
  1235. // *********************************************************************//
  1236. // DispIntf:  IGradient
  1237. // Flags:     (4112) Hidden Dispatchable
  1238. // GUID:      {2E6A37A6-77FC-11CE-840F-00AA0042CB33}
  1239. // *********************************************************************//
  1240.   IGradient = dispinterface
  1241.     ['{2E6A37A6-77FC-11CE-840F-00AA0042CB33}']
  1242.     property Style: Smallint dispid 1;
  1243.     property FromColor: IDispatch dispid 2;
  1244.     property ToColor: IDispatch dispid 3;
  1245.   end;
  1246.  
  1247. // *********************************************************************//
  1248. // DispIntf:  IPicture
  1249. // Flags:     (4112) Hidden Dispatchable
  1250. // GUID:      {FD30FB00-789C-11CE-840F-00AA0042CB33}
  1251. // *********************************************************************//
  1252.   IPicture = dispinterface
  1253.     ['{FD30FB00-789C-11CE-840F-00AA0042CB33}']
  1254.     property Type_: Smallint dispid 1;
  1255.     property Map: Smallint dispid 2;
  1256.     property Embedded: WordBool dispid 3;
  1257.     property FileName: WideString dispid 4;
  1258.   end;
  1259.  
  1260. // *********************************************************************//
  1261. // DispIntf:  IFill
  1262. // Flags:     (4112) Hidden Dispatchable
  1263. // GUID:      {FD30FB02-789C-11CE-840F-00AA0042CB33}
  1264. // *********************************************************************//
  1265.   IFill = dispinterface
  1266.     ['{FD30FB02-789C-11CE-840F-00AA0042CB33}']
  1267.     property Style: Smallint dispid 1;
  1268.     property Brush: IDispatch dispid 2;
  1269.     property Gradient: IDispatch dispid 3;
  1270.     property VtPicture: IDispatch dispid 4;
  1271.   end;
  1272.  
  1273. // *********************************************************************//
  1274. // DispIntf:  IVcPen
  1275. // Flags:     (4112) Hidden Dispatchable
  1276. // GUID:      {279B5A40-8098-11CE-BECC-00AA0042CB33}
  1277. // *********************************************************************//
  1278.   IVcPen = dispinterface
  1279.     ['{279B5A40-8098-11CE-BECC-00AA0042CB33}']
  1280.     property Style: Smallint dispid 1;
  1281.     property Join: Smallint dispid 2;
  1282.     property Cap: Smallint dispid 3;
  1283.     property VtColor: IDispatch dispid 4;
  1284.     property Width: Single dispid 5;
  1285.     property Limit: Single dispid 6;
  1286.   end;
  1287.  
  1288. // *********************************************************************//
  1289. // DispIntf:  IVcMarker
  1290. // Flags:     (4112) Hidden Dispatchable
  1291. // GUID:      {3080E742-813F-11CE-BECC-00AA0042CB33}
  1292. // *********************************************************************//
  1293.   IVcMarker = dispinterface
  1294.     ['{3080E742-813F-11CE-BECC-00AA0042CB33}']
  1295.     property Visible: WordBool dispid 1;
  1296.     property Style: Smallint dispid 2;
  1297.     property Pen: IDispatch dispid 3;
  1298.     property Size: Single dispid 4;
  1299.     property FillColor: IDispatch dispid 5;
  1300.     property VtPicture: IDispatch dispid 6;
  1301.   end;
  1302.  
  1303. // *********************************************************************//
  1304. // DispIntf:  IVcFootnote
  1305. // Flags:     (4112) Hidden Dispatchable
  1306. // GUID:      {4F053F00-8396-11CE-BECC-00AA0042CB33}
  1307. // *********************************************************************//
  1308.   IVcFootnote = dispinterface
  1309.     ['{4F053F00-8396-11CE-BECC-00AA0042CB33}']
  1310.     property TextLayout: IDispatch dispid 1;
  1311.     property Location: IDispatch dispid 2;
  1312.     property Backdrop: IDispatch dispid 3;
  1313.     property VtFont: IDispatch dispid 4;
  1314.     property Text: WideString dispid 5;
  1315.     property _Text: WideString dispid 0;
  1316.     property TextLength: Smallint dispid 6;
  1317.     procedure Select; dispid 7;
  1318.   end;
  1319.  
  1320. // *********************************************************************//
  1321. // DispIntf:  IVcLegend
  1322. // Flags:     (4112) Hidden Dispatchable
  1323. // GUID:      {95C52B60-83B1-11CE-BECC-00AA0042CB33}
  1324. // *********************************************************************//
  1325.   IVcLegend = dispinterface
  1326.     ['{95C52B60-83B1-11CE-BECC-00AA0042CB33}']
  1327.     property Location: IDispatch dispid 1;
  1328.     property Backdrop: IDispatch dispid 2;
  1329.     property VtFont: IDispatch dispid 3;
  1330.     property TextLayout: IDispatch dispid 4;
  1331.     procedure Select; dispid 5;
  1332.   end;
  1333.  
  1334. // *********************************************************************//
  1335. // DispIntf:  IVcPrintInformation
  1336. // Flags:     (4112) Hidden Dispatchable
  1337. // GUID:      {CFA0AC00-8B6E-11CE-840F-00AA0042CB33}
  1338. // *********************************************************************//
  1339.   IVcPrintInformation = dispinterface
  1340.     ['{CFA0AC00-8B6E-11CE-840F-00AA0042CB33}']
  1341.     property ScaleType: Smallint dispid 1;
  1342.     property Orientation: Smallint dispid 2;
  1343.     property TopMargin: Single dispid 3;
  1344.     property BottomMargin: Single dispid 4;
  1345.     property LeftMargin: Single dispid 5;
  1346.     property RightMargin: Single dispid 6;
  1347.     property CenterHorizontally: WordBool dispid 7;
  1348.     property CenterVertically: WordBool dispid 8;
  1349.     property Monochrome: WordBool dispid 9;
  1350.     property LayoutForPrinter: WordBool dispid 10;
  1351.     procedure PrintCopies(NumberCopies: Smallint); dispid 11;
  1352.   end;
  1353.  
  1354. // *********************************************************************//
  1355. // DispIntf:  IVcDataGrid
  1356. // Flags:     (4112) Hidden Dispatchable
  1357. // GUID:      {6CB603A0-8F70-11CE-840F-00AA0042CB33}
  1358. // *********************************************************************//
  1359.   IVcDataGrid = dispinterface
  1360.     ['{6CB603A0-8F70-11CE-840F-00AA0042CB33}']
  1361.     property ColumnCount: Smallint dispid 1;
  1362.     property ColumnLabelCount: Smallint dispid 2;
  1363.     property RowLabelCount: Smallint dispid 3;
  1364.     property RowCount: Smallint dispid 4;
  1365.     procedure DeleteColumns(Column: Smallint; Count: Smallint); dispid 5;
  1366.     procedure InsertColumns(Column: Smallint; Count: Smallint); dispid 6;
  1367.     procedure DeleteColumnLabels(LabelIndex: Smallint; Count: Smallint); dispid 7;
  1368.     procedure InsertColumnLabels(LabelIndex: Smallint; Count: Smallint); dispid 8;
  1369.     procedure DeleteRows(Row: Smallint; Count: Smallint); dispid 9;
  1370.     procedure InsertRows(Row: Smallint; Count: Smallint); dispid 10;
  1371.     procedure DeleteRowLabels(LabelIndex: Smallint; Count: Smallint); dispid 11;
  1372.     procedure InsertRowLabels(LabelIndex: Smallint; Count: Smallint); dispid 12;
  1373.     procedure RandomDataFill; dispid 13;
  1374.     procedure SetSize(RowLabelCount: Smallint; ColumnLabelCount: Smallint; DataRowCount: Smallint; 
  1375.                       DataColumnCount: Smallint); dispid 14;
  1376.     procedure InitializeLabels; dispid 15;
  1377.     property ColumnLabel[Column: Smallint; LabelIndex: Smallint]: WideString dispid 21;
  1378.     property CompositeColumnLabel[Column: Smallint]: WideString readonly dispid 22;
  1379.     property CompositeRowLabel[Row: Smallint]: WideString readonly dispid 23;
  1380.     property RowLabel[Row: Smallint; LabelIndex: Smallint]: WideString dispid 24;
  1381.     procedure RandomFillColumns(Column: Smallint; Count: Smallint); dispid 16;
  1382.     procedure RandomFillRows(Row: Smallint; Count: Smallint); dispid 17;
  1383.     procedure MoveData(Top: Smallint; Left: Smallint; Bottom: Smallint; Right: Smallint; 
  1384.                        OverOffset: Smallint; DownOffset: Smallint); dispid 18;
  1385.     procedure GetData(Row: Smallint; Column: Smallint; var DataPoint: Double; var nullFlag: Smallint); dispid 19;
  1386.     procedure SetData(Row: Smallint; Column: Smallint; DataPoint: Double; nullFlag: Smallint); dispid 20;
  1387.   end;
  1388.  
  1389. // *********************************************************************//
  1390. // DispIntf:  IVcPlot
  1391. // Flags:     (4112) Hidden Dispatchable
  1392. // GUID:      {F77BA680-9037-11CE-86B3-444553540000}
  1393. // *********************************************************************//
  1394.   IVcPlot = dispinterface
  1395.     ['{F77BA680-9037-11CE-86B3-444553540000}']
  1396.     property AngleUnit: Smallint dispid 1;
  1397.     property Clockwise: WordBool dispid 2;
  1398.     property Sort: Smallint dispid 3;
  1399.     property MaxBubbleToAxisRatio: Single dispid 4;
  1400.     property Backdrop: IDispatch dispid 5;
  1401.     property Perspective: IDispatch dispid 6;
  1402.     property ScaleAngle: Single dispid 7;
  1403.     property StartingAngle: Single dispid 8;
  1404.     property SubPlotLabelPosition: Smallint dispid 9;
  1405.     property BarGap: Single dispid 10;
  1406.     property xGap: Single dispid 11;
  1407.     property AutoLayout: WordBool dispid 12;
  1408.     property WidthToHeightRatio: Single dispid 13;
  1409.     property DepthToHeightRatio: Single dispid 14;
  1410.     property LocationRect: IDispatch dispid 15;
  1411.     property Projection: Smallint dispid 16;
  1412.     property zGap: Single dispid 17;
  1413.     property View3d: IDispatch dispid 18;
  1414.     property PlotBase: IDispatch dispid 19;
  1415.     property Doughnut: IDispatch dispid 20;
  1416.     property Pie: IDispatch dispid 21;
  1417.     property Weighting: IDispatch dispid 22;
  1418.     property Wall: IDispatch dispid 23;
  1419.     property Elevation: IDispatch dispid 24;
  1420.     property SeriesCollection: IDispatch dispid 25;
  1421.     property DataSeriesInRow: WordBool dispid 26;
  1422.     property Light: IDispatch dispid 27;
  1423.     property XYZ: IDispatch dispid 28;
  1424.     property DefaultPercentBasis: Smallint dispid 29;
  1425.     property UniformAxis: WordBool dispid 30;
  1426.     property Axis[AxisId: Smallint; Index: OleVariant]: IDispatch readonly dispid 31;
  1427.   end;
  1428.  
  1429. // *********************************************************************//
  1430. // DispIntf:  IVcView3d
  1431. // Flags:     (4112) Hidden Dispatchable
  1432. // GUID:      {21645F62-90F0-11CE-86B3-444553540000}
  1433. // *********************************************************************//
  1434.   IVcView3d = dispinterface
  1435.     ['{21645F62-90F0-11CE-86B3-444553540000}']
  1436.     property Rotation: Single dispid 1;
  1437.     property Elevation: Single dispid 2;
  1438.     procedure Set_(Rotation: Single; Elevation: Single); dispid 4;
  1439.   end;
  1440.  
  1441. // *********************************************************************//
  1442. // DispIntf:  IVcPlotBase
  1443. // Flags:     (4112) Hidden Dispatchable
  1444. // GUID:      {508D02E0-90FC-11CE-86B3-444553540000}
  1445. // *********************************************************************//
  1446.   IVcPlotBase = dispinterface
  1447.     ['{508D02E0-90FC-11CE-86B3-444553540000}']
  1448.     property BaseHeight: Single dispid 1;
  1449.     property Brush: IDispatch dispid 2;
  1450.     property Pen: IDispatch dispid 3;
  1451.   end;
  1452.  
  1453. // *********************************************************************//
  1454. // DispIntf:  IVcDoughnut
  1455. // Flags:     (4112) Hidden Dispatchable
  1456. // GUID:      {508D02E2-90FC-11CE-86B3-444553540000}
  1457. // *********************************************************************//
  1458.   IVcDoughnut = dispinterface
  1459.     ['{508D02E2-90FC-11CE-86B3-444553540000}']
  1460.     property Sides: Smallint dispid 1;
  1461.     property InteriorRatio: Single dispid 2;
  1462.     procedure Set_(InteriorRatio: Single; Sides: Smallint); dispid 3;
  1463.   end;
  1464.  
  1465. // *********************************************************************//
  1466. // DispIntf:  IVcPie
  1467. // Flags:     (4112) Hidden Dispatchable
  1468. // GUID:      {508D02E4-90FC-11CE-86B3-444553540000}
  1469. // *********************************************************************//
  1470.   IVcPie = dispinterface
  1471.     ['{508D02E4-90FC-11CE-86B3-444553540000}']
  1472.     property ThicknessRatio: Single dispid 1;
  1473.     property TopRadiusRatio: Single dispid 2;
  1474.     procedure Set_(ThicknessRatio: Single; TopRadiusRation: Single); dispid 3;
  1475.   end;
  1476.  
  1477. // *********************************************************************//
  1478. // DispIntf:  IVcWeighting
  1479. // Flags:     (4112) Hidden Dispatchable
  1480. // GUID:      {508D02E6-90FC-11CE-86B3-444553540000}
  1481. // *********************************************************************//
  1482.   IVcWeighting = dispinterface
  1483.     ['{508D02E6-90FC-11CE-86B3-444553540000}']
  1484.     property Basis: Smallint dispid 1;
  1485.     property Style: Smallint dispid 2;
  1486.     procedure Set_(Basis: Smallint; Style: Smallint); dispid 3;
  1487.   end;
  1488.  
  1489. // *********************************************************************//
  1490. // DispIntf:  IVcWall
  1491. // Flags:     (4112) Hidden Dispatchable
  1492. // GUID:      {508D02E8-90FC-11CE-86B3-444553540000}
  1493. // *********************************************************************//
  1494.   IVcWall = dispinterface
  1495.     ['{508D02E8-90FC-11CE-86B3-444553540000}']
  1496.     property Width: Single dispid 1;
  1497.     property Brush: IDispatch dispid 2;
  1498.     property Pen: IDispatch dispid 3;
  1499.   end;
  1500.  
  1501. // *********************************************************************//
  1502. // DispIntf:  IVcSeries
  1503. // Flags:     (4112) Hidden Dispatchable
  1504. // GUID:      {0AA0FE20-912A-11CE-86B3-444553540000}
  1505. // *********************************************************************//
  1506.   IVcSeries = dispinterface
  1507.     ['{0AA0FE20-912A-11CE-86B3-444553540000}']
  1508.     property SecondaryAxis: WordBool dispid 1;
  1509.     property SmoothingType: Smallint dispid 2;
  1510.     property SmoothingFactor: Smallint dispid 3;
  1511.     property SeriesType: Smallint dispid 4;
  1512.     property GuideLinePen: IDispatch dispid 5;
  1513.     property ShowLine: WordBool dispid 6;
  1514.     property Pen: IDispatch dispid 7;
  1515.     property Bar: IDispatch dispid 8;
  1516.     property HiLo: IDispatch dispid 9;
  1517.     property Position: IDispatch dispid 10;
  1518.     property SeriesMarker: IDispatch dispid 11;
  1519.     property SeriesLabel: IDispatch dispid 12;
  1520.     property StatLine: IDispatch dispid 13;
  1521.     property DataPoints: IDispatch dispid 14;
  1522.     property LegendText: WideString dispid 15;
  1523.     property _LegendText: WideString dispid 0;
  1524.     property ShowGuideLine[AxisId: Smallint]: WordBool dispid 17;
  1525.     procedure Select; dispid 16;
  1526.     property TypeByChartType[ChartType: Smallint]: Smallint readonly dispid 18;
  1527.   end;
  1528.  
  1529. // *********************************************************************//
  1530. // DispIntf:  IVcBar
  1531. // Flags:     (4112) Hidden Dispatchable
  1532. // GUID:      {264931C0-91F1-11CE-840F-00AA0042CB33}
  1533. // *********************************************************************//
  1534.   IVcBar = dispinterface
  1535.     ['{264931C0-91F1-11CE-840F-00AA0042CB33}']
  1536.     property Sides: Smallint dispid 1;
  1537.     property TopRatio: Single dispid 2;
  1538.   end;
  1539.  
  1540. // *********************************************************************//
  1541. // DispIntf:  IVcHiLo
  1542. // Flags:     (4112) Hidden Dispatchable
  1543. // GUID:      {51DCC620-95B7-11CE-86B3-444553540000}
  1544. // *********************************************************************//
  1545.   IVcHiLo = dispinterface
  1546.     ['{51DCC620-95B7-11CE-86B3-444553540000}']
  1547.     property GainColor: IDispatch dispid 1;
  1548.     property LossColor: IDispatch dispid 2;
  1549.   end;
  1550.  
  1551. // *********************************************************************//
  1552. // DispIntf:  IVcPosition
  1553. // Flags:     (4112) Hidden Dispatchable
  1554. // GUID:      {51DCC622-95B7-11CE-86B3-444553540000}
  1555. // *********************************************************************//
  1556.   IVcPosition = dispinterface
  1557.     ['{51DCC622-95B7-11CE-86B3-444553540000}']
  1558.     property Excluded: WordBool dispid 1;
  1559.     property Hidden: WordBool dispid 2;
  1560.     property Order: Smallint dispid 3;
  1561.     property StackOrder: Smallint dispid 4;
  1562.   end;
  1563.  
  1564. // *********************************************************************//
  1565. // DispIntf:  IVcSeriesMarker
  1566. // Flags:     (4112) Hidden Dispatchable
  1567. // GUID:      {51DCC624-95B7-11CE-86B3-444553540000}
  1568. // *********************************************************************//
  1569.   IVcSeriesMarker = dispinterface
  1570.     ['{51DCC624-95B7-11CE-86B3-444553540000}']
  1571.     property Auto: WordBool dispid 1;
  1572.     property Show: WordBool dispid 2;
  1573.   end;
  1574.  
  1575. // *********************************************************************//
  1576. // DispIntf:  IVcSeriesLabel
  1577. // Flags:     (4112) Hidden Dispatchable
  1578. // GUID:      {51DCC626-95B7-11CE-86B3-444553540000}
  1579. // *********************************************************************//
  1580.   IVcSeriesLabel = dispinterface
  1581.     ['{51DCC626-95B7-11CE-86B3-444553540000}']
  1582.     property Text: WideString dispid 1;
  1583.     property _Text: WideString dispid 0;
  1584.     property LocationType: Smallint dispid 2;
  1585.     property LineStyle: Smallint dispid 3;
  1586.     property Offset: IDispatch dispid 4;
  1587.     property Backdrop: IDispatch dispid 5;
  1588.     property VtFont: IDispatch dispid 6;
  1589.     property TextLayout: IDispatch dispid 7;
  1590.     property TextLength: Smallint dispid 8;
  1591.   end;
  1592.  
  1593. // *********************************************************************//
  1594. // DispIntf:  IVcStatLines
  1595. // Flags:     (4112) Hidden Dispatchable
  1596. // GUID:      {2F6DD6A0-95E5-11CE-86B3-444553540000}
  1597. // *********************************************************************//
  1598.   IVcStatLines = dispinterface
  1599.     ['{2F6DD6A0-95E5-11CE-86B3-444553540000}']
  1600.     property Flag: Smallint dispid 1;
  1601.     property VtColor: IDispatch dispid 2;
  1602.     property Width: Single dispid 3;
  1603.     property Style[Type_: Smallint]: Smallint dispid 4;
  1604.   end;
  1605.  
  1606. // *********************************************************************//
  1607. // DispIntf:  IVcDataPointLabel
  1608. // Flags:     (4112) Hidden Dispatchable
  1609. // GUID:      {2F6DD6A2-95E5-11CE-86B3-444553540000}
  1610. // *********************************************************************//
  1611.   IVcDataPointLabel = dispinterface
  1612.     ['{2F6DD6A2-95E5-11CE-86B3-444553540000}']
  1613.     property Text: WideString dispid 1;
  1614.     property _Text: WideString dispid 0;
  1615.     property Backdrop: IDispatch dispid 2;
  1616.     property VtFont: IDispatch dispid 3;
  1617.     property Offset: IDispatch dispid 4;
  1618.     property TextLayout: IDispatch dispid 5;
  1619.     property LocationType: Smallint dispid 6;
  1620.     property Custom: WordBool dispid 7;
  1621.     property Component: Smallint dispid 8;
  1622.     property LineStyle: Smallint dispid 9;
  1623.     property ValueFormat: WideString dispid 10;
  1624.     property PercentFormat: WideString dispid 11;
  1625.     property TextLength: Smallint dispid 12;
  1626.     procedure ResetCustomLabel; dispid 13;
  1627.     procedure Select; dispid 14;
  1628.   end;
  1629.  
  1630. // *********************************************************************//
  1631. // DispIntf:  IVcDataPoint
  1632. // Flags:     (4112) Hidden Dispatchable
  1633. // GUID:      {2F6DD6A4-95E5-11CE-86B3-444553540000}
  1634. // *********************************************************************//
  1635.   IVcDataPoint = dispinterface
  1636.     ['{2F6DD6A4-95E5-11CE-86B3-444553540000}']
  1637.     property DataPointLabel: IDispatch dispid 1;
  1638.     property Brush: IDispatch dispid 2;
  1639.     property EdgePen: IDispatch dispid 3;
  1640.     property Marker: IDispatch dispid 4;
  1641.     property Offset: Single dispid 5;
  1642.     property VtPicture: IDispatch dispid 6;
  1643.     procedure ResetCustom; dispid 7;
  1644.     procedure Select; dispid 8;
  1645.   end;
  1646.  
  1647. // *********************************************************************//
  1648. // DispIntf:  IVcAxis
  1649. // Flags:     (4112) Hidden Dispatchable
  1650. // GUID:      {027D7900-A023-11CE-840F-00AA0042CB33}
  1651. // *********************************************************************//
  1652.   IVcAxis = dispinterface
  1653.     ['{027D7900-A023-11CE-840F-00AA0042CB33}']
  1654.     property Pen: IDispatch dispid 1;
  1655.     property LabelLevelCount: Smallint dispid 2;
  1656.     property CategoryScale: IDispatch dispid 3;
  1657.     property DateScale: IDispatch dispid 4;
  1658.     property AxisGrid: IDispatch dispid 5;
  1659.     property Intersection: IDispatch dispid 6;
  1660.     property Tick: IDispatch dispid 7;
  1661.     property AxisScale: IDispatch dispid 8;
  1662.     property ValueScale: IDispatch dispid 9;
  1663.     property AxisTitle: IDispatch dispid 10;
  1664.     property Labels: IDispatch dispid 11;
  1665.   end;
  1666.  
  1667. // *********************************************************************//
  1668. // DispIntf:  IVcCategoryScale
  1669. // Flags:     (4112) Hidden Dispatchable
  1670. // GUID:      {62375360-A17D-11CE-840F-00AA0042CB33}
  1671. // *********************************************************************//
  1672.   IVcCategoryScale = dispinterface
  1673.     ['{62375360-A17D-11CE-840F-00AA0042CB33}']
  1674.     property Auto: WordBool dispid 1;
  1675.     property DivisionsPerLabel: Smallint dispid 2;
  1676.     property DivisionsPerTick: Smallint dispid 3;
  1677.     property LabelTick: WordBool dispid 4;
  1678.   end;
  1679.  
  1680. // *********************************************************************//
  1681. // DispIntf:  IVcDateScale
  1682. // Flags:     (4112) Hidden Dispatchable
  1683. // GUID:      {62375362-A17D-11CE-840F-00AA0042CB33}
  1684. // *********************************************************************//
  1685.   IVcDateScale = dispinterface
  1686.     ['{62375362-A17D-11CE-840F-00AA0042CB33}']
  1687.     property Auto: WordBool dispid 1;
  1688.     property Minimum: Double dispid 2;
  1689.     property Maximum: Double dispid 3;
  1690.     property MajInt: Smallint dispid 4;
  1691.     property MajFreq: Smallint dispid 5;
  1692.     property MinInt: Smallint dispid 6;
  1693.     property MinFreq: Smallint dispid 7;
  1694.     property SkipWeekend: WordBool dispid 8;
  1695.   end;
  1696.  
  1697. // *********************************************************************//
  1698. // DispIntf:  IVcAxisGrid
  1699. // Flags:     (4112) Hidden Dispatchable
  1700. // GUID:      {62375364-A17D-11CE-840F-00AA0042CB33}
  1701. // *********************************************************************//
  1702.   IVcAxisGrid = dispinterface
  1703.     ['{62375364-A17D-11CE-840F-00AA0042CB33}']
  1704.     property MinorPen: IDispatch dispid 1;
  1705.     property MajorPen: IDispatch dispid 2;
  1706.   end;
  1707.  
  1708. // *********************************************************************//
  1709. // DispIntf:  IVcIntersection
  1710. // Flags:     (4112) Hidden Dispatchable
  1711. // GUID:      {62375366-A17D-11CE-840F-00AA0042CB33}
  1712. // *********************************************************************//
  1713.   IVcIntersection = dispinterface
  1714.     ['{62375366-A17D-11CE-840F-00AA0042CB33}']
  1715.     property Auto: WordBool dispid 1;
  1716.     property Point: Double dispid 2;
  1717.     property AxisId: Smallint dispid 3;
  1718.     property Index: Smallint dispid 4;
  1719.     property LabelsInsidePlot: WordBool dispid 5;
  1720.   end;
  1721.  
  1722. // *********************************************************************//
  1723. // DispIntf:  IVcTick
  1724. // Flags:     (4112) Hidden Dispatchable
  1725. // GUID:      {62375368-A17D-11CE-840F-00AA0042CB33}
  1726. // *********************************************************************//
  1727.   IVcTick = dispinterface
  1728.     ['{62375368-A17D-11CE-840F-00AA0042CB33}']
  1729.     property Length: Single dispid 1;
  1730.     property Style: Smallint dispid 2;
  1731.   end;
  1732.  
  1733. // *********************************************************************//
  1734. // DispIntf:  IVcScale
  1735. // Flags:     (4112) Hidden Dispatchable
  1736. // GUID:      {6237536A-A17D-11CE-840F-00AA0042CB33}
  1737. // *********************************************************************//
  1738.   IVcScale = dispinterface
  1739.     ['{6237536A-A17D-11CE-840F-00AA0042CB33}']
  1740.     property Hide: WordBool dispid 1;
  1741.     property Type_: Smallint dispid 2;
  1742.     property LogBase: Smallint dispid 3;
  1743.     property PercentBasis: Smallint dispid 4;
  1744.   end;
  1745.  
  1746. // *********************************************************************//
  1747. // DispIntf:  IVcValueScale
  1748. // Flags:     (4112) Hidden Dispatchable
  1749. // GUID:      {6237536C-A17D-11CE-840F-00AA0042CB33}
  1750. // *********************************************************************//
  1751.   IVcValueScale = dispinterface
  1752.     ['{6237536C-A17D-11CE-840F-00AA0042CB33}']
  1753.     property Auto: WordBool dispid 1;
  1754.     property Minimum: Double dispid 2;
  1755.     property Maximum: Double dispid 3;
  1756.     property MajorDivision: Smallint dispid 4;
  1757.     property MinorDivision: Smallint dispid 5;
  1758.   end;
  1759.  
  1760. // *********************************************************************//
  1761. // DispIntf:  IVcAxisTitle
  1762. // Flags:     (4112) Hidden Dispatchable
  1763. // GUID:      {6237536E-A17D-11CE-840F-00AA0042CB33}
  1764. // *********************************************************************//
  1765.   IVcAxisTitle = dispinterface
  1766.     ['{6237536E-A17D-11CE-840F-00AA0042CB33}']
  1767.     property Text: WideString dispid 1;
  1768.     property _Text: WideString dispid 0;
  1769.     property Backdrop: IDispatch dispid 2;
  1770.     property VtFont: IDispatch dispid 3;
  1771.     property Visible: WordBool dispid 4;
  1772.     property TextLayout: IDispatch dispid 5;
  1773.     property TextLength: Smallint dispid 6;
  1774.   end;
  1775.  
  1776. // *********************************************************************//
  1777. // DispIntf:  IVcLabel
  1778. // Flags:     (4112) Hidden Dispatchable
  1779. // GUID:      {62375370-A17D-11CE-840F-00AA0042CB33}
  1780. // *********************************************************************//
  1781.   IVcLabel = dispinterface
  1782.     ['{62375370-A17D-11CE-840F-00AA0042CB33}']
  1783.     property Backdrop: IDispatch dispid 1;
  1784.     property Format: WideString dispid 2;
  1785.     property VtFont: IDispatch dispid 3;
  1786.     property Auto: WordBool dispid 4;
  1787.     property Standing: WordBool dispid 5;
  1788.     property TextLayout: IDispatch dispid 6;
  1789.     property FormatLength: Smallint dispid 7;
  1790.   end;
  1791.  
  1792. // *********************************************************************//
  1793. // DispIntf:  IVcLight
  1794. // Flags:     (4112) Hidden Dispatchable
  1795. // GUID:      {B54A6420-A25E-11CE-840F-00AA0042CB33}
  1796. // *********************************************************************//
  1797.   IVcLight = dispinterface
  1798.     ['{B54A6420-A25E-11CE-840F-00AA0042CB33}']
  1799.     property AmbientIntensity: Single dispid 1;
  1800.     property EdgeIntensity: Single dispid 2;
  1801.     property EdgeVisible: WordBool dispid 3;
  1802.     property LightSources: IDispatch dispid 4;
  1803.   end;
  1804.  
  1805. // *********************************************************************//
  1806. // DispIntf:  IVcElevation
  1807. // Flags:     (4112) Hidden Dispatchable
  1808. // GUID:      {A71FB700-A732-11CE-840F-00AA0042CB33}
  1809. // *********************************************************************//
  1810.   IVcElevation = dispinterface
  1811.     ['{A71FB700-A732-11CE-840F-00AA0042CB33}']
  1812.     property ColorType: Smallint dispid 1;
  1813.     property RowSmoothing: Smallint dispid 2;
  1814.     property ColSmoothing: Smallint dispid 3;
  1815.     property Surface: IDispatch dispid 4;
  1816.     property AutoValues: WordBool dispid 5;
  1817.     property SeparateContourData: WordBool dispid 6;
  1818.     property Contour: IDispatch dispid 7;
  1819.     property Attributes: IDispatch dispid 8;
  1820.     property ContourGradient: IDispatch dispid 9;
  1821.   end;
  1822.  
  1823. // *********************************************************************//
  1824. // DispIntf:  IVcAttribute
  1825. // Flags:     (4112) Hidden Dispatchable
  1826. // GUID:      {A71FB702-A732-11CE-840F-00AA0042CB33}
  1827. // *********************************************************************//
  1828.   IVcAttribute = dispinterface
  1829.     ['{A71FB702-A732-11CE-840F-00AA0042CB33}']
  1830.     property Value: Double dispid 1;
  1831.     property Brush: IDispatch dispid 2;
  1832.     property Pen: IDispatch dispid 3;
  1833.     property Text: WideString dispid 4;
  1834.     property _Text: WideString dispid 0;
  1835.   end;
  1836.  
  1837. // *********************************************************************//
  1838. // DispIntf:  IVcSurface
  1839. // Flags:     (4112) Hidden Dispatchable
  1840. // GUID:      {A71FB704-A732-11CE-840F-00AA0042CB33}
  1841. // *********************************************************************//
  1842.   IVcSurface = dispinterface
  1843.     ['{A71FB704-A732-11CE-840F-00AA0042CB33}']
  1844.     property Brush: IDispatch dispid 1;
  1845.     property WireframePen: IDispatch dispid 2;
  1846.     property Projection: Smallint dispid 3;
  1847.     property DisplayType: Smallint dispid 4;
  1848.     property RowWireframe: Smallint dispid 5;
  1849.     property ColWireframe: Smallint dispid 6;
  1850.     property Base: Smallint dispid 7;
  1851.   end;
  1852.  
  1853. // *********************************************************************//
  1854. // DispIntf:  IVcContour
  1855. // Flags:     (4112) Hidden Dispatchable
  1856. // GUID:      {A71FB706-A732-11CE-840F-00AA0042CB33}
  1857. // *********************************************************************//
  1858.   IVcContour = dispinterface
  1859.     ['{A71FB706-A732-11CE-840F-00AA0042CB33}']
  1860.     property DisplayType: Smallint dispid 1;
  1861.   end;
  1862.  
  1863. // *********************************************************************//
  1864. // DispIntf:  IVcLightSource
  1865. // Flags:     (4112) Hidden Dispatchable
  1866. // GUID:      {CD9EFA60-AA40-11CE-840F-00AA0042CB33}
  1867. // *********************************************************************//
  1868.   IVcLightSource = dispinterface
  1869.     ['{CD9EFA60-AA40-11CE-840F-00AA0042CB33}']
  1870.     property Intensity: Single dispid 1;
  1871.     property X: Single dispid 2;
  1872.     property Y: Single dispid 3;
  1873.     property Z: Single dispid 4;
  1874.     property _Intensity: Single dispid 0;
  1875.     procedure Set_(X: Single; Y: Single; Z: Single; Intensity: Single); dispid 5;
  1876.   end;
  1877.  
  1878. // *********************************************************************//
  1879. // DispIntf:  IVcSeriesCollection
  1880. // Flags:     (4112) Hidden Dispatchable
  1881. // GUID:      {C14E8B60-AE2B-11CE-840F-00AA0042CB33}
  1882. // *********************************************************************//
  1883.   IVcSeriesCollection = dispinterface
  1884.     ['{C14E8B60-AE2B-11CE-840F-00AA0042CB33}']
  1885.     property Count: Integer dispid 1;
  1886.     property Item[Index: Smallint]: IDispatch readonly dispid 2;
  1887.   end;
  1888.  
  1889. // *********************************************************************//
  1890. // DispIntf:  IVcDataPoints
  1891. // Flags:     (4112) Hidden Dispatchable
  1892. // GUID:      {C20E5260-B06F-11CE-840F-00AA0042CB33}
  1893. // *********************************************************************//
  1894.   IVcDataPoints = dispinterface
  1895.     ['{C20E5260-B06F-11CE-840F-00AA0042CB33}']
  1896.     property Count: Integer dispid 1;
  1897.     property Item[DataPoint: Smallint]: IDispatch readonly dispid 2;
  1898.     property _Item[DataPoint: Smallint]: IDispatch readonly dispid 0; default;
  1899.   end;
  1900.  
  1901. // *********************************************************************//
  1902. // DispIntf:  IVcLabels
  1903. // Flags:     (4112) Hidden Dispatchable
  1904. // GUID:      {62B9A400-B93D-11CE-8410-00AA0042CB33}
  1905. // *********************************************************************//
  1906.   IVcLabels = dispinterface
  1907.     ['{62B9A400-B93D-11CE-8410-00AA0042CB33}']
  1908.     property Count: Integer dispid 1;
  1909.     property Item[LabelIndex: Smallint]: IDispatch readonly dispid 2;
  1910.     property _Item[LabelIndex: Smallint]: IDispatch readonly dispid 0; default;
  1911.   end;
  1912.  
  1913. // *********************************************************************//
  1914. // DispIntf:  IVcXYZ
  1915. // Flags:     (4112) Hidden Dispatchable
  1916. // GUID:      {7D001800-BC65-11CE-8410-00AA0042CB33}
  1917. // *********************************************************************//
  1918.   IVcXYZ = dispinterface
  1919.     ['{7D001800-BC65-11CE-8410-00AA0042CB33}']
  1920.     property xIntersection: Double dispid 1;
  1921.     property yIntersection: Double dispid 2;
  1922.     property zIntersection: Double dispid 3;
  1923.     property Automatic: WordBool dispid 4;
  1924.   end;
  1925.  
  1926. // *********************************************************************//
  1927. // DispIntf:  IVcLightSources
  1928. // Flags:     (4112) Hidden Dispatchable
  1929. // GUID:      {6FE35CC0-CE50-11CE-8410-00AA0042CB33}
  1930. // *********************************************************************//
  1931.   IVcLightSources = dispinterface
  1932.     ['{6FE35CC0-CE50-11CE-8410-00AA0042CB33}']
  1933.     property Count: Integer dispid 1;
  1934.     property Item[Index: Smallint]: IDispatch readonly dispid 4;
  1935.     function  Add(X: Single; Y: Single; Z: Single; Intensity: Single): IDispatch; dispid 2;
  1936.     procedure Remove(Index: Smallint); dispid 3;
  1937.   end;
  1938.  
  1939. // *********************************************************************//
  1940. // DispIntf:  IVcAttributes
  1941. // Flags:     (4112) Hidden Dispatchable
  1942. // GUID:      {5A693220-CFEF-11CE-8410-00AA0042CB33}
  1943. // *********************************************************************//
  1944.   IVcAttributes = dispinterface
  1945.     ['{5A693220-CFEF-11CE-8410-00AA0042CB33}']
  1946.     property Count: Smallint dispid 1;
  1947.     property Item[Index: Smallint]: IDispatch readonly dispid 4;
  1948.     property _Item[Index: Smallint]: IDispatch readonly dispid 0; default;
  1949.     function  Add(Value: Double): IDispatch; dispid 2;
  1950.     procedure Remove(Index: Smallint); dispid 3;
  1951.   end;
  1952.  
  1953. // *********************************************************************//
  1954. // DispIntf:  IVcContourGradient
  1955. // Flags:     (4112) Hidden Dispatchable
  1956. // GUID:      {69032720-D303-11CE-8410-00AA0042CB33}
  1957. // *********************************************************************//
  1958.   IVcContourGradient = dispinterface
  1959.     ['{69032720-D303-11CE-8410-00AA0042CB33}']
  1960.     property FromBrushColor: IDispatch dispid 1;
  1961.     property ToBrushColor: IDispatch dispid 2;
  1962.     property FromPenColor: IDispatch dispid 3;
  1963.     property ToPenColor: IDispatch dispid 4;
  1964.   end;
  1965.  
  1966.  
  1967. // *********************************************************************//
  1968. // OLE Control Proxy class declaration
  1969. // Control Name     : TVtChart
  1970. // Help String      : VCI First Impression Chart
  1971. // Default Interface: _DVtChart
  1972. // Def. Intf. DISP? : Yes
  1973. // Event   Interface: _DVtChartEvents
  1974. // TypeFlags        : (38) CanCreate Licensed Control
  1975. // *********************************************************************//
  1976.   TVtChartChartSelected = procedure(Sender: TObject; var MouseFlags: Smallint; var Cancel: Smallint) of object;
  1977.   TVtChartTitleSelected = procedure(Sender: TObject; var MouseFlags: Smallint; var Cancel: Smallint) of object;
  1978.   TVtChartFootnoteSelected = procedure(Sender: TObject; var MouseFlags: Smallint; 
  1979.                                                         var Cancel: Smallint) of object;
  1980.   TVtChartLegendSelected = procedure(Sender: TObject; var MouseFlags: Smallint; var Cancel: Smallint) of object;
  1981.   TVtChartPlotSelected = procedure(Sender: TObject; var MouseFlags: Smallint; var Cancel: Smallint) of object;
  1982.   TVtChartAxisSelected = procedure(Sender: TObject; var AxisId: Smallint; var AxisIndex: Smallint; 
  1983.                                                     var MouseFlags: Smallint; var Cancel: Smallint) of object;
  1984.   TVtChartAxisLabelSelected = procedure(Sender: TObject; var AxisId: Smallint; 
  1985.                                                          var AxisIndex: Smallint; 
  1986.                                                          var labelSetIndex: Smallint; 
  1987.                                                          var LabelIndex: Smallint; 
  1988.                                                          var MouseFlags: Smallint; 
  1989.                                                          var Cancel: Smallint) of object;
  1990.   TVtChartAxisTitleSelected = procedure(Sender: TObject; var AxisId: Smallint; 
  1991.                                                          var AxisIndex: Smallint; 
  1992.                                                          var MouseFlags: Smallint; 
  1993.                                                          var Cancel: Smallint) of object;
  1994.   TVtChartPointSelected = procedure(Sender: TObject; var Series: Smallint; var DataPoint: Smallint; 
  1995.                                                      var MouseFlags: Smallint; var Cancel: Smallint) of object;
  1996.   TVtChartPointLabelSelected = procedure(Sender: TObject; var Series: Smallint; 
  1997.                                                           var DataPoint: Smallint; 
  1998.                                                           var MouseFlags: Smallint; 
  1999.                                                           var Cancel: Smallint) of object;
  2000.   TVtChartSeriesSelected = procedure(Sender: TObject; var Series: Smallint; 
  2001.                                                       var MouseFlags: Smallint; var Cancel: Smallint) of object;
  2002.   TVtChartSeriesLabelSelected = procedure(Sender: TObject; var Series: Smallint; 
  2003.                                                            var MouseFlags: Smallint; 
  2004.                                                            var Cancel: Smallint) of object;
  2005.   TVtChartChartActivated = procedure(Sender: TObject; var MouseFlags: Smallint; var Cancel: Smallint) of object;
  2006.   TVtChartTitleActivated = procedure(Sender: TObject; var MouseFlags: Smallint; var Cancel: Smallint) of object;
  2007.   TVtChartFootnoteActivated = procedure(Sender: TObject; var MouseFlags: Smallint; 
  2008.                                                          var Cancel: Smallint) of object;
  2009.   TVtChartLegendActivated = procedure(Sender: TObject; var MouseFlags: Smallint; 
  2010.                                                        var Cancel: Smallint) of object;
  2011.   TVtChartPlotActivated = procedure(Sender: TObject; var MouseFlags: Smallint; var Cancel: Smallint) of object;
  2012.   TVtChartAxisActivated = procedure(Sender: TObject; var AxisId: Smallint; var AxisIndex: Smallint; 
  2013.                                                      var MouseFlags: Smallint; var Cancel: Smallint) of object;
  2014.   TVtChartAxisLabelActivated = procedure(Sender: TObject; var AxisId: Smallint; 
  2015.                                                           var AxisIndex: Smallint; 
  2016.                                                           var labelSetIndex: Smallint; 
  2017.                                                           var LabelIndex: Smallint; 
  2018.                                                           var MouseFlags: Smallint; 
  2019.                                                           var Cancel: Smallint) of object;
  2020.   TVtChartAxisTitleActivated = procedure(Sender: TObject; var AxisId: Smallint; 
  2021.                                                           var AxisIndex: Smallint; 
  2022.                                                           var MouseFlags: Smallint; 
  2023.                                                           var Cancel: Smallint) of object;
  2024.   TVtChartPointActivated = procedure(Sender: TObject; var Series: Smallint; 
  2025.                                                       var DataPoint: Smallint; 
  2026.                                                       var MouseFlags: Smallint; var Cancel: Smallint) of object;
  2027.   TVtChartPointLabelActivated = procedure(Sender: TObject; var Series: Smallint; 
  2028.                                                            var DataPoint: Smallint; 
  2029.                                                            var MouseFlags: Smallint; 
  2030.                                                            var Cancel: Smallint) of object;
  2031.   TVtChartSeriesActivated = procedure(Sender: TObject; var Series: Smallint; 
  2032.                                                        var MouseFlags: Smallint; 
  2033.                                                        var Cancel: Smallint) of object;
  2034.   TVtChartSeriesLabelActivated = procedure(Sender: TObject; var Series: Smallint; 
  2035.                                                             var MouseFlags: Smallint; 
  2036.                                                             var Cancel: Smallint) of object;
  2037.  
  2038.   TVtChart = class(TOleControl)
  2039.   private
  2040.     FOnChartSelected: TVtChartChartSelected;
  2041.     FOnTitleSelected: TVtChartTitleSelected;
  2042.     FOnFootnoteSelected: TVtChartFootnoteSelected;
  2043.     FOnLegendSelected: TVtChartLegendSelected;
  2044.     FOnPlotSelected: TVtChartPlotSelected;
  2045.     FOnAxisSelected: TVtChartAxisSelected;
  2046.     FOnAxisLabelSelected: TVtChartAxisLabelSelected;
  2047.     FOnAxisTitleSelected: TVtChartAxisTitleSelected;
  2048.     FOnPointSelected: TVtChartPointSelected;
  2049.     FOnPointLabelSelected: TVtChartPointLabelSelected;
  2050.     FOnSeriesSelected: TVtChartSeriesSelected;
  2051.     FOnSeriesLabelSelected: TVtChartSeriesLabelSelected;
  2052.     FOnChartActivated: TVtChartChartActivated;
  2053.     FOnTitleActivated: TVtChartTitleActivated;
  2054.     FOnFootnoteActivated: TVtChartFootnoteActivated;
  2055.     FOnLegendActivated: TVtChartLegendActivated;
  2056.     FOnPlotActivated: TVtChartPlotActivated;
  2057.     FOnAxisActivated: TVtChartAxisActivated;
  2058.     FOnAxisLabelActivated: TVtChartAxisLabelActivated;
  2059.     FOnAxisTitleActivated: TVtChartAxisTitleActivated;
  2060.     FOnPointActivated: TVtChartPointActivated;
  2061.     FOnPointLabelActivated: TVtChartPointLabelActivated;
  2062.     FOnSeriesActivated: TVtChartSeriesActivated;
  2063.     FOnSeriesLabelActivated: TVtChartSeriesLabelActivated;
  2064.     FOnApplyChanges: TNotifyEvent;
  2065.     FIntf: _DVtChart;
  2066.     function  GetControlInterface: _DVtChart;
  2067.   protected
  2068.     procedure CreateControl;
  2069.     procedure InitControlData; override;
  2070.     function Get_Title: IDispatch;
  2071.     procedure Set_Title(const Value: IDispatch);
  2072.     function Get_Footnote: IDispatch;
  2073.     procedure Set_Footnote(const Value: IDispatch);
  2074.     function Get_Backdrop: IDispatch;
  2075.     procedure Set_Backdrop(const Value: IDispatch);
  2076.     function Get_PrintInformation: IDispatch;
  2077.     procedure Set_PrintInformation(const Value: IDispatch);
  2078.     function Get_Legend: IDispatch;
  2079.     procedure Set_Legend(const Value: IDispatch);
  2080.     function Get_DataGrid: IDispatch;
  2081.     procedure Set_DataGrid(const Value: IDispatch);
  2082.     function Get_Plot: IDispatch;
  2083.     procedure Set_Plot(const Value: IDispatch);
  2084.     function  Get_GetBitmap(options: OleVariant): OLE_HANDLE;
  2085.   public
  2086.     procedure EditPaste;
  2087.     procedure EditCopy;
  2088.     procedure ActivateSelectionDialog;
  2089.     procedure Layout;
  2090.     procedure ToDefaults;
  2091.     procedure PrintSetupDialog;
  2092.     procedure PrintChart;
  2093.     procedure SelectPart(part: Smallint; index1: Smallint; index2: Smallint; index3: Smallint; 
  2094.                          index4: Smallint);
  2095.     procedure GetSelectedPart(var part: Smallint; var index1: Smallint; var index2: Smallint; 
  2096.                               var index3: Smallint; var index4: Smallint);
  2097.     procedure GetDLLVersion(var major: Smallint; var minor: Smallint);
  2098.     procedure TwipsToChartPart(xVal: Integer; yVal: Integer; var part: Smallint; 
  2099.                                var index1: Smallint; var index2: Smallint; var index3: Smallint; 
  2100.                                var index4: Smallint);
  2101.     procedure ReadFromFile(const FileName: WideString);
  2102.     procedure WritePictureToFile(const FileName: WideString; pictureType: Smallint; 
  2103.                                  options: Smallint);
  2104.     procedure WriteToFile(const FileName: WideString);
  2105.     procedure ActivateFormatMenu(X: Integer; Y: Integer);
  2106.     procedure GetMetafile(options: Smallint; var Handle: OLE_HANDLE; var Width: Integer; 
  2107.                           var Height: Integer);
  2108.     procedure CopyDataFromArray(Top: Smallint; Left: Smallint; Bottom: Smallint; Right: Smallint; 
  2109.                                 Array_: OleVariant);
  2110.     procedure CopyDataToArray(Top: Smallint; Left: Smallint; Bottom: Smallint; Right: Smallint; 
  2111.                               Array_: OleVariant);
  2112.     procedure Draw(hDC: OLE_HANDLE; hDCType: Smallint; Top: Integer; Left: Integer; 
  2113.                    Bottom: Integer; Right: Integer; Layout: WordBool; Stretch: WordBool);
  2114.     procedure UseWizard;
  2115.     procedure EditChartData;
  2116.     procedure Refresh;
  2117.     procedure AboutBox;
  2118.     property  ControlInterface: _DVtChart read GetControlInterface;
  2119.     property  DefaultInterface: _DVtChart read GetControlInterface;
  2120.     property SsLinkSheet: WideString index 22 read GetWideStringProp write SetWideStringProp;
  2121.     property Handle: Integer index 24 read GetIntegerProp;
  2122.     property Picture: TPicture index 25 read GetTPictureProp;
  2123.     property Title: IDispatch index 26 read GetIDispatchProp write SetIDispatchProp;
  2124.     property Footnote: IDispatch index 27 read GetIDispatchProp write SetIDispatchProp;
  2125.     property Backdrop: IDispatch index 36 read GetIDispatchProp write SetIDispatchProp;
  2126.     property PrintInformation: IDispatch index 37 read GetIDispatchProp write SetIDispatchProp;
  2127.     property Legend: IDispatch index 38 read GetIDispatchProp write SetIDispatchProp;
  2128.     property DataGrid: IDispatch index 39 read GetIDispatchProp write SetIDispatchProp;
  2129.     property Plot: IDispatch index 40 read GetIDispatchProp write SetIDispatchProp;
  2130.     property GetBitmap[options: OleVariant]: OLE_HANDLE read Get_GetBitmap;
  2131.   published
  2132.     property  TabStop;
  2133.     property  Align;
  2134.     property  DragCursor;
  2135.     property  DragMode;
  2136.     property  ParentShowHint;
  2137.     property  PopupMenu;
  2138.     property  ShowHint;
  2139.     property  TabOrder;
  2140.     property  Visible;
  2141.     property  OnDragDrop;
  2142.     property  OnDragOver;
  2143.     property  OnEndDrag;
  2144.     property  OnEnter;
  2145.     property  OnExit;
  2146.     property  OnStartDrag;
  2147.     property  OnMouseUp;
  2148.     property  OnMouseMove;
  2149.     property  OnMouseDown;
  2150.     property  OnKeyUp;
  2151.     property  OnKeyPress;
  2152.     property  OnKeyDown;
  2153.     property  OnDblClick;
  2154.     property  OnClick;
  2155.     property AutoIncrement: WordBool index 1 read GetWordBoolProp write SetWordBoolProp stored False;
  2156.     property RandomFill: WordBool index 2 read GetWordBoolProp write SetWordBoolProp stored False;
  2157.     property ChartType: Smallint index 3 read GetSmallintProp write SetSmallintProp stored False;
  2158.     property Column: Smallint index 4 read GetSmallintProp write SetSmallintProp stored False;
  2159.     property ColumnCount: Smallint index 5 read GetSmallintProp write SetSmallintProp stored False;
  2160.     property ColumnLabel: WideString index 6 read GetWideStringProp write SetWideStringProp stored False;
  2161.     property ColumnLabelCount: Smallint index 7 read GetSmallintProp write SetSmallintProp stored False;
  2162.     property ColumnLabelIndex: Smallint index 8 read GetSmallintProp write SetSmallintProp stored False;
  2163.     property Data: WideString index 9 read GetWideStringProp write SetWideStringProp stored False;
  2164.     property FootnoteText: WideString index 10 read GetWideStringProp write SetWideStringProp stored False;
  2165.     property Repaint: WordBool index 11 read GetWordBoolProp write SetWordBoolProp stored False;
  2166.     property Row: Smallint index 12 read GetSmallintProp write SetSmallintProp stored False;
  2167.     property RowCount: Smallint index 13 read GetSmallintProp write SetSmallintProp stored False;
  2168.     property RowLabel: WideString index 14 read GetWideStringProp write SetWideStringProp stored False;
  2169.     property RowLabelCount: Smallint index 15 read GetSmallintProp write SetSmallintProp stored False;
  2170.     property RowLabelIndex: Smallint index 16 read GetSmallintProp write SetSmallintProp stored False;
  2171.     property SeriesColumn: Smallint index 17 read GetSmallintProp write SetSmallintProp stored False;
  2172.     property SeriesType: Smallint index 18 read GetSmallintProp write SetSmallintProp stored False;
  2173.     property ShowLegend: WordBool index 19 read GetWordBoolProp write SetWordBoolProp stored False;
  2174.     property SsLinkMode: Smallint index 20 read GetSmallintProp write SetSmallintProp stored False;
  2175.     property SsLinkRange: WideString index 21 read GetWideStringProp write SetWideStringProp stored False;
  2176.     property DrawMode: Smallint index 23 read GetSmallintProp write SetSmallintProp stored False;
  2177.     property BorderStyle: Smallint index -504 read GetSmallintProp write SetSmallintProp stored False;
  2178.     property Enabled: WordBool index -514 read GetWordBoolProp write SetWordBoolProp stored False;
  2179.     property hWnd: Smallint index -515 read GetSmallintProp write SetSmallintProp stored False;
  2180.     property TitleText: WideString index 28 read GetWideStringProp write SetWideStringProp stored False;
  2181.     property Stacking: WordBool index 29 read GetWordBoolProp write SetWordBoolProp stored False;
  2182.     property TextLengthType: Smallint index 30 read GetSmallintProp write SetSmallintProp stored False;
  2183.     property AllowUserChanges: WordBool index 31 read GetWordBoolProp write SetWordBoolProp stored False;
  2184.     property AllowSelections: WordBool index 32 read GetWordBoolProp write SetWordBoolProp stored False;
  2185.     property AllowSeriesSelection: WordBool index 33 read GetWordBoolProp write SetWordBoolProp stored False;
  2186.     property AllowDynamicRotation: WordBool index 34 read GetWordBoolProp write SetWordBoolProp stored False;
  2187.     property ActiveSeriesCount: Smallint index 35 read GetSmallintProp write SetSmallintProp stored False;
  2188.     property TwipsWidth: Integer index 41 read GetIntegerProp write SetIntegerProp stored False;
  2189.     property TwipsHeight: Integer index 42 read GetIntegerProp write SetIntegerProp stored False;
  2190.     property AllowDithering: WordBool index 43 read GetWordBoolProp write SetWordBoolProp stored False;
  2191.     property ErrorOffset: Smallint index 44 read GetSmallintProp write SetSmallintProp stored False;
  2192.     property DoSetCursor: WordBool index 45 read GetWordBoolProp write SetWordBoolProp stored False;
  2193.     property FileName: WideString index 46 read GetWideStringProp write SetWideStringProp stored False;
  2194.     property Chart3d: WordBool index 47 read GetWordBoolProp write SetWordBoolProp stored False;
  2195.     property SsLinkBook: WideString index 48 read GetWideStringProp write SetWideStringProp stored False;
  2196.     property OnChartSelected: TVtChartChartSelected read FOnChartSelected write FOnChartSelected;
  2197.     property OnTitleSelected: TVtChartTitleSelected read FOnTitleSelected write FOnTitleSelected;
  2198.     property OnFootnoteSelected: TVtChartFootnoteSelected read FOnFootnoteSelected write FOnFootnoteSelected;
  2199.     property OnLegendSelected: TVtChartLegendSelected read FOnLegendSelected write FOnLegendSelected;
  2200.     property OnPlotSelected: TVtChartPlotSelected read FOnPlotSelected write FOnPlotSelected;
  2201.     property OnAxisSelected: TVtChartAxisSelected read FOnAxisSelected write FOnAxisSelected;
  2202.     property OnAxisLabelSelected: TVtChartAxisLabelSelected read FOnAxisLabelSelected write FOnAxisLabelSelected;
  2203.     property OnAxisTitleSelected: TVtChartAxisTitleSelected read FOnAxisTitleSelected write FOnAxisTitleSelected;
  2204.     property OnPointSelected: TVtChartPointSelected read FOnPointSelected write FOnPointSelected;
  2205.     property OnPointLabelSelected: TVtChartPointLabelSelected read FOnPointLabelSelected write FOnPointLabelSelected;
  2206.     property OnSeriesSelected: TVtChartSeriesSelected read FOnSeriesSelected write FOnSeriesSelected;
  2207.     property OnSeriesLabelSelected: TVtChartSeriesLabelSelected read FOnSeriesLabelSelected write FOnSeriesLabelSelected;
  2208.     property OnChartActivated: TVtChartChartActivated read FOnChartActivated write FOnChartActivated;
  2209.     property OnTitleActivated: TVtChartTitleActivated read FOnTitleActivated write FOnTitleActivated;
  2210.     property OnFootnoteActivated: TVtChartFootnoteActivated read FOnFootnoteActivated write FOnFootnoteActivated;
  2211.     property OnLegendActivated: TVtChartLegendActivated read FOnLegendActivated write FOnLegendActivated;
  2212.     property OnPlotActivated: TVtChartPlotActivated read FOnPlotActivated write FOnPlotActivated;
  2213.     property OnAxisActivated: TVtChartAxisActivated read FOnAxisActivated write FOnAxisActivated;
  2214.     property OnAxisLabelActivated: TVtChartAxisLabelActivated read FOnAxisLabelActivated write FOnAxisLabelActivated;
  2215.     property OnAxisTitleActivated: TVtChartAxisTitleActivated read FOnAxisTitleActivated write FOnAxisTitleActivated;
  2216.     property OnPointActivated: TVtChartPointActivated read FOnPointActivated write FOnPointActivated;
  2217.     property OnPointLabelActivated: TVtChartPointLabelActivated read FOnPointLabelActivated write FOnPointLabelActivated;
  2218.     property OnSeriesActivated: TVtChartSeriesActivated read FOnSeriesActivated write FOnSeriesActivated;
  2219.     property OnSeriesLabelActivated: TVtChartSeriesLabelActivated read FOnSeriesLabelActivated write FOnSeriesLabelActivated;
  2220.     property OnApplyChanges: TNotifyEvent read FOnApplyChanges write FOnApplyChanges;
  2221.   end;
  2222.  
  2223. // *********************************************************************//
  2224. // The Class CoCoor provides a Create and CreateRemote method to          
  2225. // create instances of the default interface ICoor exposed by              
  2226. // the CoClass Coor. The functions are intended to be used by             
  2227. // clients wishing to automate the CoClass objects exposed by the         
  2228. // server of this typelibrary.                                            
  2229. // *********************************************************************//
  2230.   CoCoor = class
  2231.     class function Create: ICoor;
  2232.     class function CreateRemote(const MachineName: string): ICoor;
  2233.   end;
  2234.  
  2235. // *********************************************************************//
  2236. // The Class CoLCoor provides a Create and CreateRemote method to          
  2237. // create instances of the default interface ILCoor exposed by              
  2238. // the CoClass LCoor. The functions are intended to be used by             
  2239. // clients wishing to automate the CoClass objects exposed by the         
  2240. // server of this typelibrary.                                            
  2241. // *********************************************************************//
  2242.   CoLCoor = class
  2243.     class function Create: ILCoor;
  2244.     class function CreateRemote(const MachineName: string): ILCoor;
  2245.   end;
  2246.  
  2247. // *********************************************************************//
  2248. // The Class CoCoor3 provides a Create and CreateRemote method to          
  2249. // create instances of the default interface ICoor3 exposed by              
  2250. // the CoClass Coor3. The functions are intended to be used by             
  2251. // clients wishing to automate the CoClass objects exposed by the         
  2252. // server of this typelibrary.                                            
  2253. // *********************************************************************//
  2254.   CoCoor3 = class
  2255.     class function Create: ICoor3;
  2256.     class function CreateRemote(const MachineName: string): ICoor3;
  2257.   end;
  2258.  
  2259. // *********************************************************************//
  2260. // The Class CoLRect provides a Create and CreateRemote method to          
  2261. // create instances of the default interface ILRect exposed by              
  2262. // the CoClass LRect. The functions are intended to be used by             
  2263. // clients wishing to automate the CoClass objects exposed by the         
  2264. // server of this typelibrary.                                            
  2265. // *********************************************************************//
  2266.   CoLRect = class
  2267.     class function Create: ILRect;
  2268.     class function CreateRemote(const MachineName: string): ILRect;
  2269.   end;
  2270.  
  2271. // *********************************************************************//
  2272. // The Class CoRect provides a Create and CreateRemote method to          
  2273. // create instances of the default interface IRect exposed by              
  2274. // the CoClass Rect. The functions are intended to be used by             
  2275. // clients wishing to automate the CoClass objects exposed by the         
  2276. // server of this typelibrary.                                            
  2277. // *********************************************************************//
  2278.   CoRect = class
  2279.     class function Create: IRect;
  2280.     class function CreateRemote(const MachineName: string): IRect;
  2281.   end;
  2282.  
  2283. // *********************************************************************//
  2284. // The Class CoVtColor provides a Create and CreateRemote method to          
  2285. // create instances of the default interface IColor exposed by              
  2286. // the CoClass VtColor. The functions are intended to be used by             
  2287. // clients wishing to automate the CoClass objects exposed by the         
  2288. // server of this typelibrary.                                            
  2289. // *********************************************************************//
  2290.   CoVtColor = class
  2291.     class function Create: IColor;
  2292.     class function CreateRemote(const MachineName: string): IColor;
  2293.   end;
  2294.  
  2295. // *********************************************************************//
  2296. // The Class CoBrush provides a Create and CreateRemote method to          
  2297. // create instances of the default interface IBrush exposed by              
  2298. // the CoClass Brush. The functions are intended to be used by             
  2299. // clients wishing to automate the CoClass objects exposed by the         
  2300. // server of this typelibrary.                                            
  2301. // *********************************************************************//
  2302.   CoBrush = class
  2303.     class function Create: IBrush;
  2304.     class function CreateRemote(const MachineName: string): IBrush;
  2305.   end;
  2306.  
  2307. // *********************************************************************//
  2308. // The Class CoShadow provides a Create and CreateRemote method to          
  2309. // create instances of the default interface IShadow exposed by              
  2310. // the CoClass Shadow. The functions are intended to be used by             
  2311. // clients wishing to automate the CoClass objects exposed by the         
  2312. // server of this typelibrary.                                            
  2313. // *********************************************************************//
  2314.   CoShadow = class
  2315.     class function Create: IShadow;
  2316.     class function CreateRemote(const MachineName: string): IShadow;
  2317.   end;
  2318.  
  2319. // *********************************************************************//
  2320. // The Class CoTextLayout provides a Create and CreateRemote method to          
  2321. // create instances of the default interface ITextLayout exposed by              
  2322. // the CoClass TextLayout. The functions are intended to be used by             
  2323. // clients wishing to automate the CoClass objects exposed by the         
  2324. // server of this typelibrary.                                            
  2325. // *********************************************************************//
  2326.   CoTextLayout = class
  2327.     class function Create: ITextLayout;
  2328.     class function CreateRemote(const MachineName: string): ITextLayout;
  2329.   end;
  2330.  
  2331. // *********************************************************************//
  2332. // The Class CoTitle provides a Create and CreateRemote method to          
  2333. // create instances of the default interface IVcTitle exposed by              
  2334. // the CoClass Title. The functions are intended to be used by             
  2335. // clients wishing to automate the CoClass objects exposed by the         
  2336. // server of this typelibrary.                                            
  2337. // *********************************************************************//
  2338.   CoTitle = class
  2339.     class function Create: IVcTitle;
  2340.     class function CreateRemote(const MachineName: string): IVcTitle;
  2341.   end;
  2342.  
  2343. // *********************************************************************//
  2344. // The Class CoLocation provides a Create and CreateRemote method to          
  2345. // create instances of the default interface ILocation exposed by              
  2346. // the CoClass Location. The functions are intended to be used by             
  2347. // clients wishing to automate the CoClass objects exposed by the         
  2348. // server of this typelibrary.                                            
  2349. // *********************************************************************//
  2350.   CoLocation = class
  2351.     class function Create: ILocation;
  2352.     class function CreateRemote(const MachineName: string): ILocation;
  2353.   end;
  2354.  
  2355. // *********************************************************************//
  2356. // The Class CoVtFont provides a Create and CreateRemote method to          
  2357. // create instances of the default interface IFont exposed by              
  2358. // the CoClass VtFont. The functions are intended to be used by             
  2359. // clients wishing to automate the CoClass objects exposed by the         
  2360. // server of this typelibrary.                                            
  2361. // *********************************************************************//
  2362.   CoVtFont = class
  2363.     class function Create: IFont;
  2364.     class function CreateRemote(const MachineName: string): IFont;
  2365.   end;
  2366.  
  2367. // *********************************************************************//
  2368. // The Class CoBackdrop provides a Create and CreateRemote method to          
  2369. // create instances of the default interface IBackdrop exposed by              
  2370. // the CoClass Backdrop. The functions are intended to be used by             
  2371. // clients wishing to automate the CoClass objects exposed by the         
  2372. // server of this typelibrary.                                            
  2373. // *********************************************************************//
  2374.   CoBackdrop = class
  2375.     class function Create: IBackdrop;
  2376.     class function CreateRemote(const MachineName: string): IBackdrop;
  2377.   end;
  2378.  
  2379. // *********************************************************************//
  2380. // The Class CoFrame provides a Create and CreateRemote method to          
  2381. // create instances of the default interface IFrame exposed by              
  2382. // the CoClass Frame. The functions are intended to be used by             
  2383. // clients wishing to automate the CoClass objects exposed by the         
  2384. // server of this typelibrary.                                            
  2385. // *********************************************************************//
  2386.   CoFrame = class
  2387.     class function Create: IFrame;
  2388.     class function CreateRemote(const MachineName: string): IFrame;
  2389.   end;
  2390.  
  2391. // *********************************************************************//
  2392. // The Class CoGradient provides a Create and CreateRemote method to          
  2393. // create instances of the default interface IGradient exposed by              
  2394. // the CoClass Gradient. The functions are intended to be used by             
  2395. // clients wishing to automate the CoClass objects exposed by the         
  2396. // server of this typelibrary.                                            
  2397. // *********************************************************************//
  2398.   CoGradient = class
  2399.     class function Create: IGradient;
  2400.     class function CreateRemote(const MachineName: string): IGradient;
  2401.   end;
  2402.  
  2403. // *********************************************************************//
  2404. // The Class CoVtPicture provides a Create and CreateRemote method to          
  2405. // create instances of the default interface IPicture exposed by              
  2406. // the CoClass VtPicture. The functions are intended to be used by             
  2407. // clients wishing to automate the CoClass objects exposed by the         
  2408. // server of this typelibrary.                                            
  2409. // *********************************************************************//
  2410.   CoVtPicture = class
  2411.     class function Create: IPicture;
  2412.     class function CreateRemote(const MachineName: string): IPicture;
  2413.   end;
  2414.  
  2415. // *********************************************************************//
  2416. // The Class CoFill provides a Create and CreateRemote method to          
  2417. // create instances of the default interface IFill exposed by              
  2418. // the CoClass Fill. The functions are intended to be used by             
  2419. // clients wishing to automate the CoClass objects exposed by the         
  2420. // server of this typelibrary.                                            
  2421. // *********************************************************************//
  2422.   CoFill = class
  2423.     class function Create: IFill;
  2424.     class function CreateRemote(const MachineName: string): IFill;
  2425.   end;
  2426.  
  2427. // *********************************************************************//
  2428. // The Class CoPen provides a Create and CreateRemote method to          
  2429. // create instances of the default interface IVcPen exposed by              
  2430. // the CoClass Pen. The functions are intended to be used by             
  2431. // clients wishing to automate the CoClass objects exposed by the         
  2432. // server of this typelibrary.                                            
  2433. // *********************************************************************//
  2434.   CoPen = class
  2435.     class function Create: IVcPen;
  2436.     class function CreateRemote(const MachineName: string): IVcPen;
  2437.   end;
  2438.  
  2439. // *********************************************************************//
  2440. // The Class CoMarker provides a Create and CreateRemote method to          
  2441. // create instances of the default interface IVcMarker exposed by              
  2442. // the CoClass Marker. The functions are intended to be used by             
  2443. // clients wishing to automate the CoClass objects exposed by the         
  2444. // server of this typelibrary.                                            
  2445. // *********************************************************************//
  2446.   CoMarker = class
  2447.     class function Create: IVcMarker;
  2448.     class function CreateRemote(const MachineName: string): IVcMarker;
  2449.   end;
  2450.  
  2451. // *********************************************************************//
  2452. // The Class CoFootnote provides a Create and CreateRemote method to          
  2453. // create instances of the default interface IVcFootnote exposed by              
  2454. // the CoClass Footnote. The functions are intended to be used by             
  2455. // clients wishing to automate the CoClass objects exposed by the         
  2456. // server of this typelibrary.                                            
  2457. // *********************************************************************//
  2458.   CoFootnote = class
  2459.     class function Create: IVcFootnote;
  2460.     class function CreateRemote(const MachineName: string): IVcFootnote;
  2461.   end;
  2462.  
  2463. // *********************************************************************//
  2464. // The Class CoLegend provides a Create and CreateRemote method to          
  2465. // create instances of the default interface IVcLegend exposed by              
  2466. // the CoClass Legend. The functions are intended to be used by             
  2467. // clients wishing to automate the CoClass objects exposed by the         
  2468. // server of this typelibrary.                                            
  2469. // *********************************************************************//
  2470.   CoLegend = class
  2471.     class function Create: IVcLegend;
  2472.     class function CreateRemote(const MachineName: string): IVcLegend;
  2473.   end;
  2474.  
  2475. // *********************************************************************//
  2476. // The Class CoPrintInformation provides a Create and CreateRemote method to          
  2477. // create instances of the default interface IVcPrintInformation exposed by              
  2478. // the CoClass PrintInformation. The functions are intended to be used by             
  2479. // clients wishing to automate the CoClass objects exposed by the         
  2480. // server of this typelibrary.                                            
  2481. // *********************************************************************//
  2482.   CoPrintInformation = class
  2483.     class function Create: IVcPrintInformation;
  2484.     class function CreateRemote(const MachineName: string): IVcPrintInformation;
  2485.   end;
  2486.  
  2487. // *********************************************************************//
  2488. // The Class CoDataGrid provides a Create and CreateRemote method to          
  2489. // create instances of the default interface IVcDataGrid exposed by              
  2490. // the CoClass DataGrid. The functions are intended to be used by             
  2491. // clients wishing to automate the CoClass objects exposed by the         
  2492. // server of this typelibrary.                                            
  2493. // *********************************************************************//
  2494.   CoDataGrid = class
  2495.     class function Create: IVcDataGrid;
  2496.     class function CreateRemote(const MachineName: string): IVcDataGrid;
  2497.   end;
  2498.  
  2499. // *********************************************************************//
  2500. // The Class CoPlot provides a Create and CreateRemote method to          
  2501. // create instances of the default interface IVcPlot exposed by              
  2502. // the CoClass Plot. The functions are intended to be used by             
  2503. // clients wishing to automate the CoClass objects exposed by the         
  2504. // server of this typelibrary.                                            
  2505. // *********************************************************************//
  2506.   CoPlot = class
  2507.     class function Create: IVcPlot;
  2508.     class function CreateRemote(const MachineName: string): IVcPlot;
  2509.   end;
  2510.  
  2511. // *********************************************************************//
  2512. // The Class CoView3d provides a Create and CreateRemote method to          
  2513. // create instances of the default interface IVcView3d exposed by              
  2514. // the CoClass View3d. The functions are intended to be used by             
  2515. // clients wishing to automate the CoClass objects exposed by the         
  2516. // server of this typelibrary.                                            
  2517. // *********************************************************************//
  2518.   CoView3d = class
  2519.     class function Create: IVcView3d;
  2520.     class function CreateRemote(const MachineName: string): IVcView3d;
  2521.   end;
  2522.  
  2523. // *********************************************************************//
  2524. // The Class CoPlotBase provides a Create and CreateRemote method to          
  2525. // create instances of the default interface IVcPlotBase exposed by              
  2526. // the CoClass PlotBase. The functions are intended to be used by             
  2527. // clients wishing to automate the CoClass objects exposed by the         
  2528. // server of this typelibrary.                                            
  2529. // *********************************************************************//
  2530.   CoPlotBase = class
  2531.     class function Create: IVcPlotBase;
  2532.     class function CreateRemote(const MachineName: string): IVcPlotBase;
  2533.   end;
  2534.  
  2535. // *********************************************************************//
  2536. // The Class CoDoughnut provides a Create and CreateRemote method to          
  2537. // create instances of the default interface IVcDoughnut exposed by              
  2538. // the CoClass Doughnut. The functions are intended to be used by             
  2539. // clients wishing to automate the CoClass objects exposed by the         
  2540. // server of this typelibrary.                                            
  2541. // *********************************************************************//
  2542.   CoDoughnut = class
  2543.     class function Create: IVcDoughnut;
  2544.     class function CreateRemote(const MachineName: string): IVcDoughnut;
  2545.   end;
  2546.  
  2547. // *********************************************************************//
  2548. // The Class CoPie provides a Create and CreateRemote method to          
  2549. // create instances of the default interface IVcPie exposed by              
  2550. // the CoClass Pie. The functions are intended to be used by             
  2551. // clients wishing to automate the CoClass objects exposed by the         
  2552. // server of this typelibrary.                                            
  2553. // *********************************************************************//
  2554.   CoPie = class
  2555.     class function Create: IVcPie;
  2556.     class function CreateRemote(const MachineName: string): IVcPie;
  2557.   end;
  2558.  
  2559. // *********************************************************************//
  2560. // The Class CoWeighting provides a Create and CreateRemote method to          
  2561. // create instances of the default interface IVcWeighting exposed by              
  2562. // the CoClass Weighting. The functions are intended to be used by             
  2563. // clients wishing to automate the CoClass objects exposed by the         
  2564. // server of this typelibrary.                                            
  2565. // *********************************************************************//
  2566.   CoWeighting = class
  2567.     class function Create: IVcWeighting;
  2568.     class function CreateRemote(const MachineName: string): IVcWeighting;
  2569.   end;
  2570.  
  2571. // *********************************************************************//
  2572. // The Class CoWall provides a Create and CreateRemote method to          
  2573. // create instances of the default interface IVcWall exposed by              
  2574. // the CoClass Wall. The functions are intended to be used by             
  2575. // clients wishing to automate the CoClass objects exposed by the         
  2576. // server of this typelibrary.                                            
  2577. // *********************************************************************//
  2578.   CoWall = class
  2579.     class function Create: IVcWall;
  2580.     class function CreateRemote(const MachineName: string): IVcWall;
  2581.   end;
  2582.  
  2583. // *********************************************************************//
  2584. // The Class CoSeries provides a Create and CreateRemote method to          
  2585. // create instances of the default interface IVcSeries exposed by              
  2586. // the CoClass Series. The functions are intended to be used by             
  2587. // clients wishing to automate the CoClass objects exposed by the         
  2588. // server of this typelibrary.                                            
  2589. // *********************************************************************//
  2590.   CoSeries = class
  2591.     class function Create: IVcSeries;
  2592.     class function CreateRemote(const MachineName: string): IVcSeries;
  2593.   end;
  2594.  
  2595. // *********************************************************************//
  2596. // The Class CoBar provides a Create and CreateRemote method to          
  2597. // create instances of the default interface IVcBar exposed by              
  2598. // the CoClass Bar. The functions are intended to be used by             
  2599. // clients wishing to automate the CoClass objects exposed by the         
  2600. // server of this typelibrary.                                            
  2601. // *********************************************************************//
  2602.   CoBar = class
  2603.     class function Create: IVcBar;
  2604.     class function CreateRemote(const MachineName: string): IVcBar;
  2605.   end;
  2606.  
  2607. // *********************************************************************//
  2608. // The Class CoHiLo provides a Create and CreateRemote method to          
  2609. // create instances of the default interface IVcHiLo exposed by              
  2610. // the CoClass HiLo. The functions are intended to be used by             
  2611. // clients wishing to automate the CoClass objects exposed by the         
  2612. // server of this typelibrary.                                            
  2613. // *********************************************************************//
  2614.   CoHiLo = class
  2615.     class function Create: IVcHiLo;
  2616.     class function CreateRemote(const MachineName: string): IVcHiLo;
  2617.   end;
  2618.  
  2619. // *********************************************************************//
  2620. // The Class CoPosition provides a Create and CreateRemote method to          
  2621. // create instances of the default interface IVcPosition exposed by              
  2622. // the CoClass Position. The functions are intended to be used by             
  2623. // clients wishing to automate the CoClass objects exposed by the         
  2624. // server of this typelibrary.                                            
  2625. // *********************************************************************//
  2626.   CoPosition = class
  2627.     class function Create: IVcPosition;
  2628.     class function CreateRemote(const MachineName: string): IVcPosition;
  2629.   end;
  2630.  
  2631. // *********************************************************************//
  2632. // The Class CoSeriesMarker provides a Create and CreateRemote method to          
  2633. // create instances of the default interface IVcSeriesMarker exposed by              
  2634. // the CoClass SeriesMarker. The functions are intended to be used by             
  2635. // clients wishing to automate the CoClass objects exposed by the         
  2636. // server of this typelibrary.                                            
  2637. // *********************************************************************//
  2638.   CoSeriesMarker = class
  2639.     class function Create: IVcSeriesMarker;
  2640.     class function CreateRemote(const MachineName: string): IVcSeriesMarker;
  2641.   end;
  2642.  
  2643. // *********************************************************************//
  2644. // The Class CoSeriesLabel provides a Create and CreateRemote method to          
  2645. // create instances of the default interface IVcSeriesLabel exposed by              
  2646. // the CoClass SeriesLabel. The functions are intended to be used by             
  2647. // clients wishing to automate the CoClass objects exposed by the         
  2648. // server of this typelibrary.                                            
  2649. // *********************************************************************//
  2650.   CoSeriesLabel = class
  2651.     class function Create: IVcSeriesLabel;
  2652.     class function CreateRemote(const MachineName: string): IVcSeriesLabel;
  2653.   end;
  2654.  
  2655. // *********************************************************************//
  2656. // The Class CoStatLine provides a Create and CreateRemote method to          
  2657. // create instances of the default interface IVcStatLines exposed by              
  2658. // the CoClass StatLine. The functions are intended to be used by             
  2659. // clients wishing to automate the CoClass objects exposed by the         
  2660. // server of this typelibrary.                                            
  2661. // *********************************************************************//
  2662.   CoStatLine = class
  2663.     class function Create: IVcStatLines;
  2664.     class function CreateRemote(const MachineName: string): IVcStatLines;
  2665.   end;
  2666.  
  2667. // *********************************************************************//
  2668. // The Class CoDataPointLabel provides a Create and CreateRemote method to          
  2669. // create instances of the default interface IVcDataPointLabel exposed by              
  2670. // the CoClass DataPointLabel. The functions are intended to be used by             
  2671. // clients wishing to automate the CoClass objects exposed by the         
  2672. // server of this typelibrary.                                            
  2673. // *********************************************************************//
  2674.   CoDataPointLabel = class
  2675.     class function Create: IVcDataPointLabel;
  2676.     class function CreateRemote(const MachineName: string): IVcDataPointLabel;
  2677.   end;
  2678.  
  2679. // *********************************************************************//
  2680. // The Class CoDataPoint provides a Create and CreateRemote method to          
  2681. // create instances of the default interface IVcDataPoint exposed by              
  2682. // the CoClass DataPoint. The functions are intended to be used by             
  2683. // clients wishing to automate the CoClass objects exposed by the         
  2684. // server of this typelibrary.                                            
  2685. // *********************************************************************//
  2686.   CoDataPoint = class
  2687.     class function Create: IVcDataPoint;
  2688.     class function CreateRemote(const MachineName: string): IVcDataPoint;
  2689.   end;
  2690.  
  2691. // *********************************************************************//
  2692. // The Class CoAxis provides a Create and CreateRemote method to          
  2693. // create instances of the default interface IVcAxis exposed by              
  2694. // the CoClass Axis. The functions are intended to be used by             
  2695. // clients wishing to automate the CoClass objects exposed by the         
  2696. // server of this typelibrary.                                            
  2697. // *********************************************************************//
  2698.   CoAxis = class
  2699.     class function Create: IVcAxis;
  2700.     class function CreateRemote(const MachineName: string): IVcAxis;
  2701.   end;
  2702.  
  2703. // *********************************************************************//
  2704. // The Class CoCategoryScale provides a Create and CreateRemote method to          
  2705. // create instances of the default interface IVcCategoryScale exposed by              
  2706. // the CoClass CategoryScale. The functions are intended to be used by             
  2707. // clients wishing to automate the CoClass objects exposed by the         
  2708. // server of this typelibrary.                                            
  2709. // *********************************************************************//
  2710.   CoCategoryScale = class
  2711.     class function Create: IVcCategoryScale;
  2712.     class function CreateRemote(const MachineName: string): IVcCategoryScale;
  2713.   end;
  2714.  
  2715. // *********************************************************************//
  2716. // The Class CoDateScale provides a Create and CreateRemote method to          
  2717. // create instances of the default interface IVcDateScale exposed by              
  2718. // the CoClass DateScale. The functions are intended to be used by             
  2719. // clients wishing to automate the CoClass objects exposed by the         
  2720. // server of this typelibrary.                                            
  2721. // *********************************************************************//
  2722.   CoDateScale = class
  2723.     class function Create: IVcDateScale;
  2724.     class function CreateRemote(const MachineName: string): IVcDateScale;
  2725.   end;
  2726.  
  2727. // *********************************************************************//
  2728. // The Class CoAxisGrid provides a Create and CreateRemote method to          
  2729. // create instances of the default interface IVcAxisGrid exposed by              
  2730. // the CoClass AxisGrid. The functions are intended to be used by             
  2731. // clients wishing to automate the CoClass objects exposed by the         
  2732. // server of this typelibrary.                                            
  2733. // *********************************************************************//
  2734.   CoAxisGrid = class
  2735.     class function Create: IVcAxisGrid;
  2736.     class function CreateRemote(const MachineName: string): IVcAxisGrid;
  2737.   end;
  2738.  
  2739. // *********************************************************************//
  2740. // The Class CoIntersection provides a Create and CreateRemote method to          
  2741. // create instances of the default interface IVcIntersection exposed by              
  2742. // the CoClass Intersection. The functions are intended to be used by             
  2743. // clients wishing to automate the CoClass objects exposed by the         
  2744. // server of this typelibrary.                                            
  2745. // *********************************************************************//
  2746.   CoIntersection = class
  2747.     class function Create: IVcIntersection;
  2748.     class function CreateRemote(const MachineName: string): IVcIntersection;
  2749.   end;
  2750.  
  2751. // *********************************************************************//
  2752. // The Class CoTick provides a Create and CreateRemote method to          
  2753. // create instances of the default interface IVcTick exposed by              
  2754. // the CoClass Tick. The functions are intended to be used by             
  2755. // clients wishing to automate the CoClass objects exposed by the         
  2756. // server of this typelibrary.                                            
  2757. // *********************************************************************//
  2758.   CoTick = class
  2759.     class function Create: IVcTick;
  2760.     class function CreateRemote(const MachineName: string): IVcTick;
  2761.   end;
  2762.  
  2763. // *********************************************************************//
  2764. // The Class CoAxisScale provides a Create and CreateRemote method to          
  2765. // create instances of the default interface IVcScale exposed by              
  2766. // the CoClass AxisScale. The functions are intended to be used by             
  2767. // clients wishing to automate the CoClass objects exposed by the         
  2768. // server of this typelibrary.                                            
  2769. // *********************************************************************//
  2770.   CoAxisScale = class
  2771.     class function Create: IVcScale;
  2772.     class function CreateRemote(const MachineName: string): IVcScale;
  2773.   end;
  2774.  
  2775. // *********************************************************************//
  2776. // The Class CoValueScale provides a Create and CreateRemote method to          
  2777. // create instances of the default interface IVcValueScale exposed by              
  2778. // the CoClass ValueScale. The functions are intended to be used by             
  2779. // clients wishing to automate the CoClass objects exposed by the         
  2780. // server of this typelibrary.                                            
  2781. // *********************************************************************//
  2782.   CoValueScale = class
  2783.     class function Create: IVcValueScale;
  2784.     class function CreateRemote(const MachineName: string): IVcValueScale;
  2785.   end;
  2786.  
  2787. // *********************************************************************//
  2788. // The Class CoAxisTitle provides a Create and CreateRemote method to          
  2789. // create instances of the default interface IVcAxisTitle exposed by              
  2790. // the CoClass AxisTitle. The functions are intended to be used by             
  2791. // clients wishing to automate the CoClass objects exposed by the         
  2792. // server of this typelibrary.                                            
  2793. // *********************************************************************//
  2794.   CoAxisTitle = class
  2795.     class function Create: IVcAxisTitle;
  2796.     class function CreateRemote(const MachineName: string): IVcAxisTitle;
  2797.   end;
  2798.  
  2799. // *********************************************************************//
  2800. // The Class CoLabel_ provides a Create and CreateRemote method to          
  2801. // create instances of the default interface IVcLabel exposed by              
  2802. // the CoClass Label_. The functions are intended to be used by             
  2803. // clients wishing to automate the CoClass objects exposed by the         
  2804. // server of this typelibrary.                                            
  2805. // *********************************************************************//
  2806.   CoLabel_ = class
  2807.     class function Create: IVcLabel;
  2808.     class function CreateRemote(const MachineName: string): IVcLabel;
  2809.   end;
  2810.  
  2811. // *********************************************************************//
  2812. // The Class CoLight provides a Create and CreateRemote method to          
  2813. // create instances of the default interface IVcLight exposed by              
  2814. // the CoClass Light. The functions are intended to be used by             
  2815. // clients wishing to automate the CoClass objects exposed by the         
  2816. // server of this typelibrary.                                            
  2817. // *********************************************************************//
  2818.   CoLight = class
  2819.     class function Create: IVcLight;
  2820.     class function CreateRemote(const MachineName: string): IVcLight;
  2821.   end;
  2822.  
  2823. // *********************************************************************//
  2824. // The Class CoElevation provides a Create and CreateRemote method to          
  2825. // create instances of the default interface IVcElevation exposed by              
  2826. // the CoClass Elevation. The functions are intended to be used by             
  2827. // clients wishing to automate the CoClass objects exposed by the         
  2828. // server of this typelibrary.                                            
  2829. // *********************************************************************//
  2830.   CoElevation = class
  2831.     class function Create: IVcElevation;
  2832.     class function CreateRemote(const MachineName: string): IVcElevation;
  2833.   end;
  2834.  
  2835. // *********************************************************************//
  2836. // The Class CoAttribute provides a Create and CreateRemote method to          
  2837. // create instances of the default interface IVcAttribute exposed by              
  2838. // the CoClass Attribute. The functions are intended to be used by             
  2839. // clients wishing to automate the CoClass objects exposed by the         
  2840. // server of this typelibrary.                                            
  2841. // *********************************************************************//
  2842.   CoAttribute = class
  2843.     class function Create: IVcAttribute;
  2844.     class function CreateRemote(const MachineName: string): IVcAttribute;
  2845.   end;
  2846.  
  2847. // *********************************************************************//
  2848. // The Class CoSurface provides a Create and CreateRemote method to          
  2849. // create instances of the default interface IVcSurface exposed by              
  2850. // the CoClass Surface. The functions are intended to be used by             
  2851. // clients wishing to automate the CoClass objects exposed by the         
  2852. // server of this typelibrary.                                            
  2853. // *********************************************************************//
  2854.   CoSurface = class
  2855.     class function Create: IVcSurface;
  2856.     class function CreateRemote(const MachineName: string): IVcSurface;
  2857.   end;
  2858.  
  2859. // *********************************************************************//
  2860. // The Class CoContour provides a Create and CreateRemote method to          
  2861. // create instances of the default interface IVcContour exposed by              
  2862. // the CoClass Contour. The functions are intended to be used by             
  2863. // clients wishing to automate the CoClass objects exposed by the         
  2864. // server of this typelibrary.                                            
  2865. // *********************************************************************//
  2866.   CoContour = class
  2867.     class function Create: IVcContour;
  2868.     class function CreateRemote(const MachineName: string): IVcContour;
  2869.   end;
  2870.  
  2871. // *********************************************************************//
  2872. // The Class CoLightSource provides a Create and CreateRemote method to          
  2873. // create instances of the default interface IVcLightSource exposed by              
  2874. // the CoClass LightSource. The functions are intended to be used by             
  2875. // clients wishing to automate the CoClass objects exposed by the         
  2876. // server of this typelibrary.                                            
  2877. // *********************************************************************//
  2878.   CoLightSource = class
  2879.     class function Create: IVcLightSource;
  2880.     class function CreateRemote(const MachineName: string): IVcLightSource;
  2881.   end;
  2882.  
  2883. // *********************************************************************//
  2884. // The Class CoSeriesCollection provides a Create and CreateRemote method to          
  2885. // create instances of the default interface IVcSeriesCollection exposed by              
  2886. // the CoClass SeriesCollection. The functions are intended to be used by             
  2887. // clients wishing to automate the CoClass objects exposed by the         
  2888. // server of this typelibrary.                                            
  2889. // *********************************************************************//
  2890.   CoSeriesCollection = class
  2891.     class function Create: IVcSeriesCollection;
  2892.     class function CreateRemote(const MachineName: string): IVcSeriesCollection;
  2893.   end;
  2894.  
  2895. // *********************************************************************//
  2896. // The Class CoDataPoints provides a Create and CreateRemote method to          
  2897. // create instances of the default interface IVcDataPoints exposed by              
  2898. // the CoClass DataPoints. The functions are intended to be used by             
  2899. // clients wishing to automate the CoClass objects exposed by the         
  2900. // server of this typelibrary.                                            
  2901. // *********************************************************************//
  2902.   CoDataPoints = class
  2903.     class function Create: IVcDataPoints;
  2904.     class function CreateRemote(const MachineName: string): IVcDataPoints;
  2905.   end;
  2906.  
  2907. // *********************************************************************//
  2908. // The Class CoLabels provides a Create and CreateRemote method to          
  2909. // create instances of the default interface IVcLabels exposed by              
  2910. // the CoClass Labels. The functions are intended to be used by             
  2911. // clients wishing to automate the CoClass objects exposed by the         
  2912. // server of this typelibrary.                                            
  2913. // *********************************************************************//
  2914.   CoLabels = class
  2915.     class function Create: IVcLabels;
  2916.     class function CreateRemote(const MachineName: string): IVcLabels;
  2917.   end;
  2918.  
  2919. // *********************************************************************//
  2920. // The Class CoXYZ provides a Create and CreateRemote method to          
  2921. // create instances of the default interface IVcXYZ exposed by              
  2922. // the CoClass XYZ. The functions are intended to be used by             
  2923. // clients wishing to automate the CoClass objects exposed by the         
  2924. // server of this typelibrary.                                            
  2925. // *********************************************************************//
  2926.   CoXYZ = class
  2927.     class function Create: IVcXYZ;
  2928.     class function CreateRemote(const MachineName: string): IVcXYZ;
  2929.   end;
  2930.  
  2931. // *********************************************************************//
  2932. // The Class CoLightSources provides a Create and CreateRemote method to          
  2933. // create instances of the default interface IVcLightSources exposed by              
  2934. // the CoClass LightSources. The functions are intended to be used by             
  2935. // clients wishing to automate the CoClass objects exposed by the         
  2936. // server of this typelibrary.                                            
  2937. // *********************************************************************//
  2938.   CoLightSources = class
  2939.     class function Create: IVcLightSources;
  2940.     class function CreateRemote(const MachineName: string): IVcLightSources;
  2941.   end;
  2942.  
  2943. // *********************************************************************//
  2944. // The Class CoAttributes provides a Create and CreateRemote method to          
  2945. // create instances of the default interface IVcAttributes exposed by              
  2946. // the CoClass Attributes. The functions are intended to be used by             
  2947. // clients wishing to automate the CoClass objects exposed by the         
  2948. // server of this typelibrary.                                            
  2949. // *********************************************************************//
  2950.   CoAttributes = class
  2951.     class function Create: IVcAttributes;
  2952.     class function CreateRemote(const MachineName: string): IVcAttributes;
  2953.   end;
  2954.  
  2955. // *********************************************************************//
  2956. // The Class CoContourGradient provides a Create and CreateRemote method to          
  2957. // create instances of the default interface IVcContourGradient exposed by              
  2958. // the CoClass ContourGradient. The functions are intended to be used by             
  2959. // clients wishing to automate the CoClass objects exposed by the         
  2960. // server of this typelibrary.                                            
  2961. // *********************************************************************//
  2962.   CoContourGradient = class
  2963.     class function Create: IVcContourGradient;
  2964.     class function CreateRemote(const MachineName: string): IVcContourGradient;
  2965.   end;
  2966.  
  2967. procedure Register;
  2968.  
  2969. implementation
  2970.  
  2971. uses ComObj;
  2972.  
  2973. procedure TVtChart.InitControlData;
  2974. const
  2975.   CEventDispIDs: array [0..24] of DWORD = (
  2976.     $00000001, $00000002, $00000003, $00000004, $00000005, $00000006,
  2977.     $00000007, $00000008, $00000009, $0000000A, $0000000B, $0000000C,
  2978.     $0000000D, $0000000E, $0000000F, $00000010, $00000011, $00000012,
  2979.     $00000013, $00000014, $00000015, $00000016, $00000017, $00000018,
  2980.     $00000019);
  2981.   CLicenseKey: array[0..42] of Word = ( $0043, $006F, $0070, $0079, $0072, $0069, $0067, $0068, $0074, $0020, $0028
  2982.     , $0063, $0029, $0020, $0031, $0039, $0039, $0035, $0020, $0056, $0069
  2983.     , $0073, $0075, $0061, $006C, $0020, $0043, $006F, $006D, $0070, $006F
  2984.     , $006E, $0065, $006E, $0074, $0073, $002C, $0020, $0049, $006E, $0063
  2985.     , $002E, $0000);
  2986.   CTPictureIDs: array [0..0] of DWORD = (
  2987.     $00000019);
  2988.   CControlData: TControlData2 = (
  2989.     ClassID: '{5A721580-5AF0-11CE-8384-0020AF2337F2}';
  2990.     EventIID: '{5A721582-5AF0-11CE-8384-0020AF2337F2}';
  2991.     EventCount: 25;
  2992.     EventDispIDs: @CEventDispIDs;
  2993.     LicenseKey: @CLicenseKey;
  2994.     Flags: $00000008;
  2995.     Version: 401;
  2996.     FontCount: 0;
  2997.     FontIDs: nil;
  2998.     PictureCount: 1;
  2999.     PictureIDs: @CTPictureIDs);
  3000. begin
  3001.   ControlData := @CControlData;
  3002.   TControlData2(CControlData).FirstEventOfs := Cardinal(@@FOnChartSelected) - Cardinal(Self);
  3003. end;
  3004.  
  3005. procedure TVtChart.CreateControl;
  3006.  
  3007.   procedure DoCreate;
  3008.   begin
  3009.     FIntf := IUnknown(OleObject) as _DVtChart;
  3010.   end;
  3011.  
  3012. begin
  3013.   if FIntf = nil then DoCreate;
  3014. end;
  3015.  
  3016. function TVtChart.GetControlInterface: _DVtChart;
  3017. begin
  3018.   CreateControl;
  3019.   Result := FIntf;
  3020. end;
  3021.  
  3022. function TVtChart.Get_Title: IDispatch;
  3023. begin
  3024.   Result := DefaultInterface.Title;
  3025. end;
  3026.  
  3027. procedure TVtChart.Set_Title(const Value: IDispatch);
  3028. begin
  3029.   DefaultInterface.Title := Value;
  3030. end;
  3031.  
  3032. function TVtChart.Get_Footnote: IDispatch;
  3033. begin
  3034.   Result := DefaultInterface.Footnote;
  3035. end;
  3036.  
  3037. procedure TVtChart.Set_Footnote(const Value: IDispatch);
  3038. begin
  3039.   DefaultInterface.Footnote := Value;
  3040. end;
  3041.  
  3042. function TVtChart.Get_Backdrop: IDispatch;
  3043. begin
  3044.   Result := DefaultInterface.Backdrop;
  3045. end;
  3046.  
  3047. procedure TVtChart.Set_Backdrop(const Value: IDispatch);
  3048. begin
  3049.   DefaultInterface.Backdrop := Value;
  3050. end;
  3051.  
  3052. function TVtChart.Get_PrintInformation: IDispatch;
  3053. begin
  3054.   Result := DefaultInterface.PrintInformation;
  3055. end;
  3056.  
  3057. procedure TVtChart.Set_PrintInformation(const Value: IDispatch);
  3058. begin
  3059.   DefaultInterface.PrintInformation := Value;
  3060. end;
  3061.  
  3062. function TVtChart.Get_Legend: IDispatch;
  3063. begin
  3064.   Result := DefaultInterface.Legend;
  3065. end;
  3066.  
  3067. procedure TVtChart.Set_Legend(const Value: IDispatch);
  3068. begin
  3069.   DefaultInterface.Legend := Value;
  3070. end;
  3071.  
  3072. function TVtChart.Get_DataGrid: IDispatch;
  3073. begin
  3074.   Result := DefaultInterface.DataGrid;
  3075. end;
  3076.  
  3077. procedure TVtChart.Set_DataGrid(const Value: IDispatch);
  3078. begin
  3079.   DefaultInterface.DataGrid := Value;
  3080. end;
  3081.  
  3082. function TVtChart.Get_Plot: IDispatch;
  3083. begin
  3084.   Result := DefaultInterface.Plot;
  3085. end;
  3086.  
  3087. procedure TVtChart.Set_Plot(const Value: IDispatch);
  3088. begin
  3089.   DefaultInterface.Plot := Value;
  3090. end;
  3091.  
  3092. function  TVtChart.Get_GetBitmap(options: OleVariant): OLE_HANDLE;
  3093. begin
  3094.   Result := DefaultInterface.GetBitmap[options];
  3095. end;
  3096.  
  3097. procedure TVtChart.EditPaste;
  3098. begin
  3099.   DefaultInterface.EditPaste;
  3100. end;
  3101.  
  3102. procedure TVtChart.EditCopy;
  3103. begin
  3104.   DefaultInterface.EditCopy;
  3105. end;
  3106.  
  3107. procedure TVtChart.ActivateSelectionDialog;
  3108. begin
  3109.   DefaultInterface.ActivateSelectionDialog;
  3110. end;
  3111.  
  3112. procedure TVtChart.Layout;
  3113. begin
  3114.   DefaultInterface.Layout;
  3115. end;
  3116.  
  3117. procedure TVtChart.ToDefaults;
  3118. begin
  3119.   DefaultInterface.ToDefaults;
  3120. end;
  3121.  
  3122. procedure TVtChart.PrintSetupDialog;
  3123. begin
  3124.   DefaultInterface.PrintSetupDialog;
  3125. end;
  3126.  
  3127. procedure TVtChart.PrintChart;
  3128. begin
  3129.   DefaultInterface.PrintChart;
  3130. end;
  3131.  
  3132. procedure TVtChart.SelectPart(part: Smallint; index1: Smallint; index2: Smallint; index3: Smallint; 
  3133.                               index4: Smallint);
  3134. begin
  3135.   DefaultInterface.SelectPart(part, index1, index2, index3, index4);
  3136. end;
  3137.  
  3138. procedure TVtChart.GetSelectedPart(var part: Smallint; var index1: Smallint; var index2: Smallint; 
  3139.                                    var index3: Smallint; var index4: Smallint);
  3140. begin
  3141.   DefaultInterface.GetSelectedPart(part, index1, index2, index3, index4);
  3142. end;
  3143.  
  3144. procedure TVtChart.GetDLLVersion(var major: Smallint; var minor: Smallint);
  3145. begin
  3146.   DefaultInterface.GetDLLVersion(major, minor);
  3147. end;
  3148.  
  3149. procedure TVtChart.TwipsToChartPart(xVal: Integer; yVal: Integer; var part: Smallint; 
  3150.                                     var index1: Smallint; var index2: Smallint; 
  3151.                                     var index3: Smallint; var index4: Smallint);
  3152. begin
  3153.   DefaultInterface.TwipsToChartPart(xVal, yVal, part, index1, index2, index3, index4);
  3154. end;
  3155.  
  3156. procedure TVtChart.ReadFromFile(const FileName: WideString);
  3157. begin
  3158.   DefaultInterface.ReadFromFile(FileName);
  3159. end;
  3160.  
  3161. procedure TVtChart.WritePictureToFile(const FileName: WideString; pictureType: Smallint; 
  3162.                                       options: Smallint);
  3163. begin
  3164.   DefaultInterface.WritePictureToFile(FileName, pictureType, options);
  3165. end;
  3166.  
  3167. procedure TVtChart.WriteToFile(const FileName: WideString);
  3168. begin
  3169.   DefaultInterface.WriteToFile(FileName);
  3170. end;
  3171.  
  3172. procedure TVtChart.ActivateFormatMenu(X: Integer; Y: Integer);
  3173. begin
  3174.   DefaultInterface.ActivateFormatMenu(X, Y);
  3175. end;
  3176.  
  3177. procedure TVtChart.GetMetafile(options: Smallint; var Handle: OLE_HANDLE; var Width: Integer; 
  3178.                                var Height: Integer);
  3179. begin
  3180.   DefaultInterface.GetMetafile(options, Handle, Width, Height);
  3181. end;
  3182.  
  3183. procedure TVtChart.CopyDataFromArray(Top: Smallint; Left: Smallint; Bottom: Smallint; 
  3184.                                      Right: Smallint; Array_: OleVariant);
  3185. begin
  3186.   DefaultInterface.CopyDataFromArray(Top, Left, Bottom, Right, Array_);
  3187. end;
  3188.  
  3189. procedure TVtChart.CopyDataToArray(Top: Smallint; Left: Smallint; Bottom: Smallint; 
  3190.                                    Right: Smallint; Array_: OleVariant);
  3191. begin
  3192.   DefaultInterface.CopyDataToArray(Top, Left, Bottom, Right, Array_);
  3193. end;
  3194.  
  3195. procedure TVtChart.Draw(hDC: OLE_HANDLE; hDCType: Smallint; Top: Integer; Left: Integer; 
  3196.                         Bottom: Integer; Right: Integer; Layout: WordBool; Stretch: WordBool);
  3197. begin
  3198.   DefaultInterface.Draw(hDC, hDCType, Top, Left, Bottom, Right, Layout, Stretch);
  3199. end;
  3200.  
  3201. procedure TVtChart.UseWizard;
  3202. begin
  3203.   DefaultInterface.UseWizard;
  3204. end;
  3205.  
  3206. procedure TVtChart.EditChartData;
  3207. begin
  3208.   DefaultInterface.EditChartData;
  3209. end;
  3210.  
  3211. procedure TVtChart.Refresh;
  3212. begin
  3213.   DefaultInterface.Refresh;
  3214. end;
  3215.  
  3216. procedure TVtChart.AboutBox;
  3217. begin
  3218.   DefaultInterface.AboutBox;
  3219. end;
  3220.  
  3221. class function CoCoor.Create: ICoor;
  3222. begin
  3223.   Result := CreateComObject(CLASS_Coor) as ICoor;
  3224. end;
  3225.  
  3226. class function CoCoor.CreateRemote(const MachineName: string): ICoor;
  3227. begin
  3228.   Result := CreateRemoteComObject(MachineName, CLASS_Coor) as ICoor;
  3229. end;
  3230.  
  3231. class function CoLCoor.Create: ILCoor;
  3232. begin
  3233.   Result := CreateComObject(CLASS_LCoor) as ILCoor;
  3234. end;
  3235.  
  3236. class function CoLCoor.CreateRemote(const MachineName: string): ILCoor;
  3237. begin
  3238.   Result := CreateRemoteComObject(MachineName, CLASS_LCoor) as ILCoor;
  3239. end;
  3240.  
  3241. class function CoCoor3.Create: ICoor3;
  3242. begin
  3243.   Result := CreateComObject(CLASS_Coor3) as ICoor3;
  3244. end;
  3245.  
  3246. class function CoCoor3.CreateRemote(const MachineName: string): ICoor3;
  3247. begin
  3248.   Result := CreateRemoteComObject(MachineName, CLASS_Coor3) as ICoor3;
  3249. end;
  3250.  
  3251. class function CoLRect.Create: ILRect;
  3252. begin
  3253.   Result := CreateComObject(CLASS_LRect) as ILRect;
  3254. end;
  3255.  
  3256. class function CoLRect.CreateRemote(const MachineName: string): ILRect;
  3257. begin
  3258.   Result := CreateRemoteComObject(MachineName, CLASS_LRect) as ILRect;
  3259. end;
  3260.  
  3261. class function CoRect.Create: IRect;
  3262. begin
  3263.   Result := CreateComObject(CLASS_Rect) as IRect;
  3264. end;
  3265.  
  3266. class function CoRect.CreateRemote(const MachineName: string): IRect;
  3267. begin
  3268.   Result := CreateRemoteComObject(MachineName, CLASS_Rect) as IRect;
  3269. end;
  3270.  
  3271. class function CoVtColor.Create: IColor;
  3272. begin
  3273.   Result := CreateComObject(CLASS_VtColor) as IColor;
  3274. end;
  3275.  
  3276. class function CoVtColor.CreateRemote(const MachineName: string): IColor;
  3277. begin
  3278.   Result := CreateRemoteComObject(MachineName, CLASS_VtColor) as IColor;
  3279. end;
  3280.  
  3281. class function CoBrush.Create: IBrush;
  3282. begin
  3283.   Result := CreateComObject(CLASS_Brush) as IBrush;
  3284. end;
  3285.  
  3286. class function CoBrush.CreateRemote(const MachineName: string): IBrush;
  3287. begin
  3288.   Result := CreateRemoteComObject(MachineName, CLASS_Brush) as IBrush;
  3289. end;
  3290.  
  3291. class function CoShadow.Create: IShadow;
  3292. begin
  3293.   Result := CreateComObject(CLASS_Shadow) as IShadow;
  3294. end;
  3295.  
  3296. class function CoShadow.CreateRemote(const MachineName: string): IShadow;
  3297. begin
  3298.   Result := CreateRemoteComObject(MachineName, CLASS_Shadow) as IShadow;
  3299. end;
  3300.  
  3301. class function CoTextLayout.Create: ITextLayout;
  3302. begin
  3303.   Result := CreateComObject(CLASS_TextLayout) as ITextLayout;
  3304. end;
  3305.  
  3306. class function CoTextLayout.CreateRemote(const MachineName: string): ITextLayout;
  3307. begin
  3308.   Result := CreateRemoteComObject(MachineName, CLASS_TextLayout) as ITextLayout;
  3309. end;
  3310.  
  3311. class function CoTitle.Create: IVcTitle;
  3312. begin
  3313.   Result := CreateComObject(CLASS_Title) as IVcTitle;
  3314. end;
  3315.  
  3316. class function CoTitle.CreateRemote(const MachineName: string): IVcTitle;
  3317. begin
  3318.   Result := CreateRemoteComObject(MachineName, CLASS_Title) as IVcTitle;
  3319. end;
  3320.  
  3321. class function CoLocation.Create: ILocation;
  3322. begin
  3323.   Result := CreateComObject(CLASS_Location) as ILocation;
  3324. end;
  3325.  
  3326. class function CoLocation.CreateRemote(const MachineName: string): ILocation;
  3327. begin
  3328.   Result := CreateRemoteComObject(MachineName, CLASS_Location) as ILocation;
  3329. end;
  3330.  
  3331. class function CoVtFont.Create: IFont;
  3332. begin
  3333.   Result := CreateComObject(CLASS_VtFont) as IFont;
  3334. end;
  3335.  
  3336. class function CoVtFont.CreateRemote(const MachineName: string): IFont;
  3337. begin
  3338.   Result := CreateRemoteComObject(MachineName, CLASS_VtFont) as IFont;
  3339. end;
  3340.  
  3341. class function CoBackdrop.Create: IBackdrop;
  3342. begin
  3343.   Result := CreateComObject(CLASS_Backdrop) as IBackdrop;
  3344. end;
  3345.  
  3346. class function CoBackdrop.CreateRemote(const MachineName: string): IBackdrop;
  3347. begin
  3348.   Result := CreateRemoteComObject(MachineName, CLASS_Backdrop) as IBackdrop;
  3349. end;
  3350.  
  3351. class function CoFrame.Create: IFrame;
  3352. begin
  3353.   Result := CreateComObject(CLASS_Frame) as IFrame;
  3354. end;
  3355.  
  3356. class function CoFrame.CreateRemote(const MachineName: string): IFrame;
  3357. begin
  3358.   Result := CreateRemoteComObject(MachineName, CLASS_Frame) as IFrame;
  3359. end;
  3360.  
  3361. class function CoGradient.Create: IGradient;
  3362. begin
  3363.   Result := CreateComObject(CLASS_Gradient) as IGradient;
  3364. end;
  3365.  
  3366. class function CoGradient.CreateRemote(const MachineName: string): IGradient;
  3367. begin
  3368.   Result := CreateRemoteComObject(MachineName, CLASS_Gradient) as IGradient;
  3369. end;
  3370.  
  3371. class function CoVtPicture.Create: IPicture;
  3372. begin
  3373.   Result := CreateComObject(CLASS_VtPicture) as IPicture;
  3374. end;
  3375.  
  3376. class function CoVtPicture.CreateRemote(const MachineName: string): IPicture;
  3377. begin
  3378.   Result := CreateRemoteComObject(MachineName, CLASS_VtPicture) as IPicture;
  3379. end;
  3380.  
  3381. class function CoFill.Create: IFill;
  3382. begin
  3383.   Result := CreateComObject(CLASS_Fill) as IFill;
  3384. end;
  3385.  
  3386. class function CoFill.CreateRemote(const MachineName: string): IFill;
  3387. begin
  3388.   Result := CreateRemoteComObject(MachineName, CLASS_Fill) as IFill;
  3389. end;
  3390.  
  3391. class function CoPen.Create: IVcPen;
  3392. begin
  3393.   Result := CreateComObject(CLASS_Pen) as IVcPen;
  3394. end;
  3395.  
  3396. class function CoPen.CreateRemote(const MachineName: string): IVcPen;
  3397. begin
  3398.   Result := CreateRemoteComObject(MachineName, CLASS_Pen) as IVcPen;
  3399. end;
  3400.  
  3401. class function CoMarker.Create: IVcMarker;
  3402. begin
  3403.   Result := CreateComObject(CLASS_Marker) as IVcMarker;
  3404. end;
  3405.  
  3406. class function CoMarker.CreateRemote(const MachineName: string): IVcMarker;
  3407. begin
  3408.   Result := CreateRemoteComObject(MachineName, CLASS_Marker) as IVcMarker;
  3409. end;
  3410.  
  3411. class function CoFootnote.Create: IVcFootnote;
  3412. begin
  3413.   Result := CreateComObject(CLASS_Footnote) as IVcFootnote;
  3414. end;
  3415.  
  3416. class function CoFootnote.CreateRemote(const MachineName: string): IVcFootnote;
  3417. begin
  3418.   Result := CreateRemoteComObject(MachineName, CLASS_Footnote) as IVcFootnote;
  3419. end;
  3420.  
  3421. class function CoLegend.Create: IVcLegend;
  3422. begin
  3423.   Result := CreateComObject(CLASS_Legend) as IVcLegend;
  3424. end;
  3425.  
  3426. class function CoLegend.CreateRemote(const MachineName: string): IVcLegend;
  3427. begin
  3428.   Result := CreateRemoteComObject(MachineName, CLASS_Legend) as IVcLegend;
  3429. end;
  3430.  
  3431. class function CoPrintInformation.Create: IVcPrintInformation;
  3432. begin
  3433.   Result := CreateComObject(CLASS_PrintInformation) as IVcPrintInformation;
  3434. end;
  3435.  
  3436. class function CoPrintInformation.CreateRemote(const MachineName: string): IVcPrintInformation;
  3437. begin
  3438.   Result := CreateRemoteComObject(MachineName, CLASS_PrintInformation) as IVcPrintInformation;
  3439. end;
  3440.  
  3441. class function CoDataGrid.Create: IVcDataGrid;
  3442. begin
  3443.   Result := CreateComObject(CLASS_DataGrid) as IVcDataGrid;
  3444. end;
  3445.  
  3446. class function CoDataGrid.CreateRemote(const MachineName: string): IVcDataGrid;
  3447. begin
  3448.   Result := CreateRemoteComObject(MachineName, CLASS_DataGrid) as IVcDataGrid;
  3449. end;
  3450.  
  3451. class function CoPlot.Create: IVcPlot;
  3452. begin
  3453.   Result := CreateComObject(CLASS_Plot) as IVcPlot;
  3454. end;
  3455.  
  3456. class function CoPlot.CreateRemote(const MachineName: string): IVcPlot;
  3457. begin
  3458.   Result := CreateRemoteComObject(MachineName, CLASS_Plot) as IVcPlot;
  3459. end;
  3460.  
  3461. class function CoView3d.Create: IVcView3d;
  3462. begin
  3463.   Result := CreateComObject(CLASS_View3d) as IVcView3d;
  3464. end;
  3465.  
  3466. class function CoView3d.CreateRemote(const MachineName: string): IVcView3d;
  3467. begin
  3468.   Result := CreateRemoteComObject(MachineName, CLASS_View3d) as IVcView3d;
  3469. end;
  3470.  
  3471. class function CoPlotBase.Create: IVcPlotBase;
  3472. begin
  3473.   Result := CreateComObject(CLASS_PlotBase) as IVcPlotBase;
  3474. end;
  3475.  
  3476. class function CoPlotBase.CreateRemote(const MachineName: string): IVcPlotBase;
  3477. begin
  3478.   Result := CreateRemoteComObject(MachineName, CLASS_PlotBase) as IVcPlotBase;
  3479. end;
  3480.  
  3481. class function CoDoughnut.Create: IVcDoughnut;
  3482. begin
  3483.   Result := CreateComObject(CLASS_Doughnut) as IVcDoughnut;
  3484. end;
  3485.  
  3486. class function CoDoughnut.CreateRemote(const MachineName: string): IVcDoughnut;
  3487. begin
  3488.   Result := CreateRemoteComObject(MachineName, CLASS_Doughnut) as IVcDoughnut;
  3489. end;
  3490.  
  3491. class function CoPie.Create: IVcPie;
  3492. begin
  3493.   Result := CreateComObject(CLASS_Pie) as IVcPie;
  3494. end;
  3495.  
  3496. class function CoPie.CreateRemote(const MachineName: string): IVcPie;
  3497. begin
  3498.   Result := CreateRemoteComObject(MachineName, CLASS_Pie) as IVcPie;
  3499. end;
  3500.  
  3501. class function CoWeighting.Create: IVcWeighting;
  3502. begin
  3503.   Result := CreateComObject(CLASS_Weighting) as IVcWeighting;
  3504. end;
  3505.  
  3506. class function CoWeighting.CreateRemote(const MachineName: string): IVcWeighting;
  3507. begin
  3508.   Result := CreateRemoteComObject(MachineName, CLASS_Weighting) as IVcWeighting;
  3509. end;
  3510.  
  3511. class function CoWall.Create: IVcWall;
  3512. begin
  3513.   Result := CreateComObject(CLASS_Wall) as IVcWall;
  3514. end;
  3515.  
  3516. class function CoWall.CreateRemote(const MachineName: string): IVcWall;
  3517. begin
  3518.   Result := CreateRemoteComObject(MachineName, CLASS_Wall) as IVcWall;
  3519. end;
  3520.  
  3521. class function CoSeries.Create: IVcSeries;
  3522. begin
  3523.   Result := CreateComObject(CLASS_Series) as IVcSeries;
  3524. end;
  3525.  
  3526. class function CoSeries.CreateRemote(const MachineName: string): IVcSeries;
  3527. begin
  3528.   Result := CreateRemoteComObject(MachineName, CLASS_Series) as IVcSeries;
  3529. end;
  3530.  
  3531. class function CoBar.Create: IVcBar;
  3532. begin
  3533.   Result := CreateComObject(CLASS_Bar) as IVcBar;
  3534. end;
  3535.  
  3536. class function CoBar.CreateRemote(const MachineName: string): IVcBar;
  3537. begin
  3538.   Result := CreateRemoteComObject(MachineName, CLASS_Bar) as IVcBar;
  3539. end;
  3540.  
  3541. class function CoHiLo.Create: IVcHiLo;
  3542. begin
  3543.   Result := CreateComObject(CLASS_HiLo) as IVcHiLo;
  3544. end;
  3545.  
  3546. class function CoHiLo.CreateRemote(const MachineName: string): IVcHiLo;
  3547. begin
  3548.   Result := CreateRemoteComObject(MachineName, CLASS_HiLo) as IVcHiLo;
  3549. end;
  3550.  
  3551. class function CoPosition.Create: IVcPosition;
  3552. begin
  3553.   Result := CreateComObject(CLASS_Position) as IVcPosition;
  3554. end;
  3555.  
  3556. class function CoPosition.CreateRemote(const MachineName: string): IVcPosition;
  3557. begin
  3558.   Result := CreateRemoteComObject(MachineName, CLASS_Position) as IVcPosition;
  3559. end;
  3560.  
  3561. class function CoSeriesMarker.Create: IVcSeriesMarker;
  3562. begin
  3563.   Result := CreateComObject(CLASS_SeriesMarker) as IVcSeriesMarker;
  3564. end;
  3565.  
  3566. class function CoSeriesMarker.CreateRemote(const MachineName: string): IVcSeriesMarker;
  3567. begin
  3568.   Result := CreateRemoteComObject(MachineName, CLASS_SeriesMarker) as IVcSeriesMarker;
  3569. end;
  3570.  
  3571. class function CoSeriesLabel.Create: IVcSeriesLabel;
  3572. begin
  3573.   Result := CreateComObject(CLASS_SeriesLabel) as IVcSeriesLabel;
  3574. end;
  3575.  
  3576. class function CoSeriesLabel.CreateRemote(const MachineName: string): IVcSeriesLabel;
  3577. begin
  3578.   Result := CreateRemoteComObject(MachineName, CLASS_SeriesLabel) as IVcSeriesLabel;
  3579. end;
  3580.  
  3581. class function CoStatLine.Create: IVcStatLines;
  3582. begin
  3583.   Result := CreateComObject(CLASS_StatLine) as IVcStatLines;
  3584. end;
  3585.  
  3586. class function CoStatLine.CreateRemote(const MachineName: string): IVcStatLines;
  3587. begin
  3588.   Result := CreateRemoteComObject(MachineName, CLASS_StatLine) as IVcStatLines;
  3589. end;
  3590.  
  3591. class function CoDataPointLabel.Create: IVcDataPointLabel;
  3592. begin
  3593.   Result := CreateComObject(CLASS_DataPointLabel) as IVcDataPointLabel;
  3594. end;
  3595.  
  3596. class function CoDataPointLabel.CreateRemote(const MachineName: string): IVcDataPointLabel;
  3597. begin
  3598.   Result := CreateRemoteComObject(MachineName, CLASS_DataPointLabel) as IVcDataPointLabel;
  3599. end;
  3600.  
  3601. class function CoDataPoint.Create: IVcDataPoint;
  3602. begin
  3603.   Result := CreateComObject(CLASS_DataPoint) as IVcDataPoint;
  3604. end;
  3605.  
  3606. class function CoDataPoint.CreateRemote(const MachineName: string): IVcDataPoint;
  3607. begin
  3608.   Result := CreateRemoteComObject(MachineName, CLASS_DataPoint) as IVcDataPoint;
  3609. end;
  3610.  
  3611. class function CoAxis.Create: IVcAxis;
  3612. begin
  3613.   Result := CreateComObject(CLASS_Axis) as IVcAxis;
  3614. end;
  3615.  
  3616. class function CoAxis.CreateRemote(const MachineName: string): IVcAxis;
  3617. begin
  3618.   Result := CreateRemoteComObject(MachineName, CLASS_Axis) as IVcAxis;
  3619. end;
  3620.  
  3621. class function CoCategoryScale.Create: IVcCategoryScale;
  3622. begin
  3623.   Result := CreateComObject(CLASS_CategoryScale) as IVcCategoryScale;
  3624. end;
  3625.  
  3626. class function CoCategoryScale.CreateRemote(const MachineName: string): IVcCategoryScale;
  3627. begin
  3628.   Result := CreateRemoteComObject(MachineName, CLASS_CategoryScale) as IVcCategoryScale;
  3629. end;
  3630.  
  3631. class function CoDateScale.Create: IVcDateScale;
  3632. begin
  3633.   Result := CreateComObject(CLASS_DateScale) as IVcDateScale;
  3634. end;
  3635.  
  3636. class function CoDateScale.CreateRemote(const MachineName: string): IVcDateScale;
  3637. begin
  3638.   Result := CreateRemoteComObject(MachineName, CLASS_DateScale) as IVcDateScale;
  3639. end;
  3640.  
  3641. class function CoAxisGrid.Create: IVcAxisGrid;
  3642. begin
  3643.   Result := CreateComObject(CLASS_AxisGrid) as IVcAxisGrid;
  3644. end;
  3645.  
  3646. class function CoAxisGrid.CreateRemote(const MachineName: string): IVcAxisGrid;
  3647. begin
  3648.   Result := CreateRemoteComObject(MachineName, CLASS_AxisGrid) as IVcAxisGrid;
  3649. end;
  3650.  
  3651. class function CoIntersection.Create: IVcIntersection;
  3652. begin
  3653.   Result := CreateComObject(CLASS_Intersection) as IVcIntersection;
  3654. end;
  3655.  
  3656. class function CoIntersection.CreateRemote(const MachineName: string): IVcIntersection;
  3657. begin
  3658.   Result := CreateRemoteComObject(MachineName, CLASS_Intersection) as IVcIntersection;
  3659. end;
  3660.  
  3661. class function CoTick.Create: IVcTick;
  3662. begin
  3663.   Result := CreateComObject(CLASS_Tick) as IVcTick;
  3664. end;
  3665.  
  3666. class function CoTick.CreateRemote(const MachineName: string): IVcTick;
  3667. begin
  3668.   Result := CreateRemoteComObject(MachineName, CLASS_Tick) as IVcTick;
  3669. end;
  3670.  
  3671. class function CoAxisScale.Create: IVcScale;
  3672. begin
  3673.   Result := CreateComObject(CLASS_AxisScale) as IVcScale;
  3674. end;
  3675.  
  3676. class function CoAxisScale.CreateRemote(const MachineName: string): IVcScale;
  3677. begin
  3678.   Result := CreateRemoteComObject(MachineName, CLASS_AxisScale) as IVcScale;
  3679. end;
  3680.  
  3681. class function CoValueScale.Create: IVcValueScale;
  3682. begin
  3683.   Result := CreateComObject(CLASS_ValueScale) as IVcValueScale;
  3684. end;
  3685.  
  3686. class function CoValueScale.CreateRemote(const MachineName: string): IVcValueScale;
  3687. begin
  3688.   Result := CreateRemoteComObject(MachineName, CLASS_ValueScale) as IVcValueScale;
  3689. end;
  3690.  
  3691. class function CoAxisTitle.Create: IVcAxisTitle;
  3692. begin
  3693.   Result := CreateComObject(CLASS_AxisTitle) as IVcAxisTitle;
  3694. end;
  3695.  
  3696. class function CoAxisTitle.CreateRemote(const MachineName: string): IVcAxisTitle;
  3697. begin
  3698.   Result := CreateRemoteComObject(MachineName, CLASS_AxisTitle) as IVcAxisTitle;
  3699. end;
  3700.  
  3701. class function CoLabel_.Create: IVcLabel;
  3702. begin
  3703.   Result := CreateComObject(CLASS_Label_) as IVcLabel;
  3704. end;
  3705.  
  3706. class function CoLabel_.CreateRemote(const MachineName: string): IVcLabel;
  3707. begin
  3708.   Result := CreateRemoteComObject(MachineName, CLASS_Label_) as IVcLabel;
  3709. end;
  3710.  
  3711. class function CoLight.Create: IVcLight;
  3712. begin
  3713.   Result := CreateComObject(CLASS_Light) as IVcLight;
  3714. end;
  3715.  
  3716. class function CoLight.CreateRemote(const MachineName: string): IVcLight;
  3717. begin
  3718.   Result := CreateRemoteComObject(MachineName, CLASS_Light) as IVcLight;
  3719. end;
  3720.  
  3721. class function CoElevation.Create: IVcElevation;
  3722. begin
  3723.   Result := CreateComObject(CLASS_Elevation) as IVcElevation;
  3724. end;
  3725.  
  3726. class function CoElevation.CreateRemote(const MachineName: string): IVcElevation;
  3727. begin
  3728.   Result := CreateRemoteComObject(MachineName, CLASS_Elevation) as IVcElevation;
  3729. end;
  3730.  
  3731. class function CoAttribute.Create: IVcAttribute;
  3732. begin
  3733.   Result := CreateComObject(CLASS_Attribute) as IVcAttribute;
  3734. end;
  3735.  
  3736. class function CoAttribute.CreateRemote(const MachineName: string): IVcAttribute;
  3737. begin
  3738.   Result := CreateRemoteComObject(MachineName, CLASS_Attribute) as IVcAttribute;
  3739. end;
  3740.  
  3741. class function CoSurface.Create: IVcSurface;
  3742. begin
  3743.   Result := CreateComObject(CLASS_Surface) as IVcSurface;
  3744. end;
  3745.  
  3746. class function CoSurface.CreateRemote(const MachineName: string): IVcSurface;
  3747. begin
  3748.   Result := CreateRemoteComObject(MachineName, CLASS_Surface) as IVcSurface;
  3749. end;
  3750.  
  3751. class function CoContour.Create: IVcContour;
  3752. begin
  3753.   Result := CreateComObject(CLASS_Contour) as IVcContour;
  3754. end;
  3755.  
  3756. class function CoContour.CreateRemote(const MachineName: string): IVcContour;
  3757. begin
  3758.   Result := CreateRemoteComObject(MachineName, CLASS_Contour) as IVcContour;
  3759. end;
  3760.  
  3761. class function CoLightSource.Create: IVcLightSource;
  3762. begin
  3763.   Result := CreateComObject(CLASS_LightSource) as IVcLightSource;
  3764. end;
  3765.  
  3766. class function CoLightSource.CreateRemote(const MachineName: string): IVcLightSource;
  3767. begin
  3768.   Result := CreateRemoteComObject(MachineName, CLASS_LightSource) as IVcLightSource;
  3769. end;
  3770.  
  3771. class function CoSeriesCollection.Create: IVcSeriesCollection;
  3772. begin
  3773.   Result := CreateComObject(CLASS_SeriesCollection) as IVcSeriesCollection;
  3774. end;
  3775.  
  3776. class function CoSeriesCollection.CreateRemote(const MachineName: string): IVcSeriesCollection;
  3777. begin
  3778.   Result := CreateRemoteComObject(MachineName, CLASS_SeriesCollection) as IVcSeriesCollection;
  3779. end;
  3780.  
  3781. class function CoDataPoints.Create: IVcDataPoints;
  3782. begin
  3783.   Result := CreateComObject(CLASS_DataPoints) as IVcDataPoints;
  3784. end;
  3785.  
  3786. class function CoDataPoints.CreateRemote(const MachineName: string): IVcDataPoints;
  3787. begin
  3788.   Result := CreateRemoteComObject(MachineName, CLASS_DataPoints) as IVcDataPoints;
  3789. end;
  3790.  
  3791. class function CoLabels.Create: IVcLabels;
  3792. begin
  3793.   Result := CreateComObject(CLASS_Labels) as IVcLabels;
  3794. end;
  3795.  
  3796. class function CoLabels.CreateRemote(const MachineName: string): IVcLabels;
  3797. begin
  3798.   Result := CreateRemoteComObject(MachineName, CLASS_Labels) as IVcLabels;
  3799. end;
  3800.  
  3801. class function CoXYZ.Create: IVcXYZ;
  3802. begin
  3803.   Result := CreateComObject(CLASS_XYZ) as IVcXYZ;
  3804. end;
  3805.  
  3806. class function CoXYZ.CreateRemote(const MachineName: string): IVcXYZ;
  3807. begin
  3808.   Result := CreateRemoteComObject(MachineName, CLASS_XYZ) as IVcXYZ;
  3809. end;
  3810.  
  3811. class function CoLightSources.Create: IVcLightSources;
  3812. begin
  3813.   Result := CreateComObject(CLASS_LightSources) as IVcLightSources;
  3814. end;
  3815.  
  3816. class function CoLightSources.CreateRemote(const MachineName: string): IVcLightSources;
  3817. begin
  3818.   Result := CreateRemoteComObject(MachineName, CLASS_LightSources) as IVcLightSources;
  3819. end;
  3820.  
  3821. class function CoAttributes.Create: IVcAttributes;
  3822. begin
  3823.   Result := CreateComObject(CLASS_Attributes) as IVcAttributes;
  3824. end;
  3825.  
  3826. class function CoAttributes.CreateRemote(const MachineName: string): IVcAttributes;
  3827. begin
  3828.   Result := CreateRemoteComObject(MachineName, CLASS_Attributes) as IVcAttributes;
  3829. end;
  3830.  
  3831. class function CoContourGradient.Create: IVcContourGradient;
  3832. begin
  3833.   Result := CreateComObject(CLASS_ContourGradient) as IVcContourGradient;
  3834. end;
  3835.  
  3836. class function CoContourGradient.CreateRemote(const MachineName: string): IVcContourGradient;
  3837. begin
  3838.   Result := CreateRemoteComObject(MachineName, CLASS_ContourGradient) as IVcContourGradient;
  3839. end;
  3840.  
  3841. procedure Register;
  3842. begin
  3843.   RegisterComponents('ActiveX',[TVtChart]);
  3844. end;
  3845.  
  3846. end.
  3847.